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ABSTRACT 


— This  thesis  presents  a  stochastic  simulation  model  of 
single  channel  FM  communications  that  is  designed  to  be  used 
in  conjunction  with  the  Simulation  of  Tactical  Alternative 
Responses  (STAR)  Combat  Model.  The  communications  modelled, 
the  assumptions  made,  and  the  interface  requirements 
necessary  for  inclusion  of  the  Communications  Model  in  the 
STAR  Combat  Model  are  explained  in  detail.  The  computer 
code  that  is  used  to  execute  the  Communications  Model  is 
included  in  the  appendices.  An  overview  is  given  of  those 
portions  of  the  basic  STAR  Model  with  which  the 
Communications  Model  interfaces  directly  to  provide  the 
reader  with  sufficient  background  for  the  discussion  of  the 
Communications  Model.  The  communications  input  requirements 
of  the  model,  a  definition  of  the  purpose  of  each  routine 
and  event,  and  definitions  of  each  global  variable,  set,  and 
entity  are  provided  so  that  this  thesis  can  serve  as  a 
user's  manual  for  the  Communications  Model. 
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I. 


INTRODUCTION 


In  order  to  accomplish  its  mission  of  winning  the  land 
battle,  the  Army  must  perform  three  basic  functions: 
shooting,  moving,  and  communicating.  Therefore,  it  is 
reasonable  to  say  that  any  combined  arms  combat  model  must 
portray  these  three  functions  with  a  commensurate  degree  of 
accuracy  in  order  to  realistically  represent  the  combat 
process . 

The  question  of  precisely  how  to  model  communications 
between  the  elements,  units,  and  individuals  represented  in 
a  combined  arms  combat  model  is  a  critical  one  for  the  model 
designer.  Communication  must  be  an  integral  part  of 
virtually  every  conceptualization  of  combat  more  complex 
than  a  one-on-one  duel.  As  a  result,  communication  is  one 
of  the  most  significant  areas  which  the  combat  modeler  must 
consider  and  with  which  he  must  deal  effectively. 

The  assumptions  made  about  the  amount  of  communications 
allowed  between  elements,  the  time  required  for  the 
communications  to  be  completed,  and  the  effect  of 
communications  (or  lack  thereof)  frequently  can  be  so 
far-reaching  that  they  completely  dominate  many  other 
effects  which  the  modeler  would  like  to  study.  They  may  also 
cause  the  model  to  be  rejected  as  invalid.  For  this  reason, 
the  communications-related  assumptions  must  be  carefully 
thought  out  and  implemented  if  the  combat  model  is  to  be 
realistic  and  useful. 

The  original  efforts  in  developing  the  STAR  Combat  Model 
were  directed  towards  producing  a  high  resolution  Monte 
Carlo  simulation  of  modern  combined  arms  warfare.  It  was 
decided  to  base  the  terrain  model  on  the  work  done  by 
Neadels  for  his  thesis  research  in  March  1976.  He 
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demonstrated  that  bivariate  normal  distributions  could  be 
used  to  give  a  very  good  functional  representation  of 
continuous  terrain.  The  STAR  concept  was  to  develop  an  event 
step  simulation  in  which  the  impact  point  of  each  direct 
fire  projectile  was  computed  and  every  firepower  activity  of 
the  represented  elements  was  simulated  insofar  as  possible. 
The  movement  of  units,  firing  of  weapons,  and  all  of  the 
related  functions  such  as  target  acquisition,  target 
selection,  attrition,  tactics  and  so  on  were  modeled  in 
considerable  detail.  Because  the  model  was  to  focus  on  the 
evaluation  of  weapons  and  tactics,  the  original  studies  set 
aside  the  problem  of  communications  for  future  study  in 
order  to  get  on  with  the  development  of  the  "shooting  and 
movement"  portions  of  the  model.  A  description  of  the 
routines,  events,  and  arrays  of  the  STAR  model  which  impact 
on  the  development  of  this  thesis  is  provided  in  Appendix  A. 

The  original  work  on  the  STAR  model  was  done  by  Hagewood 
and  Wallace  in  December  1978.  At  that  time  and  stage  of 
development  the  model  portrayed  a  blue  company  under  attack 
by  a  red  battalion.  Artillery  and  close  air  support/air 
defense  modules  were  under  development  but  were  not  included 
in  the  model  at  that  time.  A  dynamic  route  selection  module 
which  considered  enemy  locations,  terrain,  and  the  tactical 
situation  was  being  considered  for  inclusion  in  the  model  as 
was  an  improved  module  for  target  selection.  In  addition, 
fuel  and  ammunition  resupply  modules  and  a  communications 
module  were  under  development. 

In  March  of  1977,  four  theses  covering  those  areas 
mentioned  above  were  written.  The  first,  by  Starner  , 
developed  a  two-sided  field  artillery  stochastic  simulation 
which  played  both  red  and  blue  artillery  at  the  battalion 
level.  Provisions  were  made  for  upgrading  the  model  to 
portray  artillery  at  the  brigade  level  when  the  brigade 
level  was  included  in  the  STAR  baseline. 
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The  second,  by  Kramer,  developed  a  deterministic 
simulation  model  for  dynamic  tactical  route  selection  based 
upon  the  route  selection  technique  used  in  the  DINTACS 
combat  simulation  model.  Kramer's  model  was  written  in 
FORTRAN ,  and  it  was  planned  for  eventual  incorporation  into 
the  STAR  model. 

The  third,  by  Broussard,  developed  a  dynamic  model  for 
the  tank  commanders'  target  selection  process  based  on 
eleven  parameters  fit  by  a  regression  model  using  responses 
from  128  tank  gunners. 

Finally,  the  fourth,  by  Haislip,  developed  a 
stand-alone  communications  model  which  will  be  discussed  in 
a  later  paragraph. 

In  September  of  1979,  Caldwell  and  Meiers  developed  an 
air-to-ground  and  ground-to-air  combined  arms  simulation 
designed  for  inclusion  in  the  STAR  model.  At  this  time,  STAR 
had  been  upgraded  to  include  representation  of  a  blue 
battalion  under  attack  by  a  red  regimental  force;  however, 
the  production  version  which  was  used  for  several  studies 
for  TRADOC  still  did  not  include  any  of  the  modules  such  as 
the  field  artillery,  dynamic  route  selection,  dynamic  target 
selection,  or  communications. 

In  his  thesis  work  in  March  1979,  Haislip  developed  a 
model  for  single  channel  FM  communications  at  the  company 
and  battalion  level.  Despite  the  fact  that  this  code  was 
written  with  the  idea  of  incorporating  it  into  STAR,  there 
were  several  shortcomings  which  precluded  its  inclusion. 
First  and  most  significant,  the  code  was  task  specific  so 
that  in  order  to  use  it  for  the  wide  range  of  applications 
represented  in  the  STAR  model  much  of  the  logic  and  many  of 
the  variable  and  attribute  names  would  have  had  to  be 
altered.  Second,  the  communications  model  only  portrayed  the 
communications  for  internal  platoon  fire  coordination  and 
field  artillery  fire  direction.  It  was  subsequently  decided 
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that,  for  the  near  term,  STAR  would  not  explicitly  model  the 
communications  below  the  company  level  for  reasons  which 
will  be  outlined  in  Chapter  V.  In  spite  of  these 
shortcomings,  the  model  written  by  Haislip  did  provide 
valuable  insights  into  how  to  approach  the  problem  of 
user-transpar ent  communications  nodules  for  the  higher 
echelons. 

Since  the  purpose  of  this  thesis  was  to  design  and 
implement  a  communications  model  for  the  movement  decision 
logic  within  the  framework  of  the  existing  STAR  Combat 
Model,  Haislip* s  work  was  used  as  the  basis  for  the 
communications  implement  tion  with  modifications  and 
extensions  in  order  to  ma..j  the  communications  interface  as 
robust  as  possible  within  the  constraints  imposed  by  the 
existing  STAR  organization.  A  description  of  the  routines 
and  events  of  the  communications  model  is  provided  in 
Appendix  B. 

Because  of  the  evolutionary  nature  of  the  STAR  model 
there  are  always  several  "current"  versions  of  the  model  in 
some  stage  of  work.  Por  the  remainder  of  this  thesis,  any 
reference  to  STAR  is  a  reference  to  the  current  production 
version  of  the  model  which  does  not  include  those  modules 
under  development.  Also,  references  to  the  communications 
model  refer  to  that  module  which  was  developed  as  a 
stand-alone  model  of  the  communications  process  using  the 
decision  logic  flow  from  the  production  version  of  STAR. 
Hopefully,  this  communications  module  will  be  enhanced  and 
included  in  one  of  the  STAR  baseline  production  models 
scheduled  for  completion  later  this  year. 
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II.  DESCRIPTION  OF  THE  STAR  MODEL 


The  STAR  combined  arms  model  is  being  developed  at  the 
Naval  Postgraduate  School  to  investigate  the  ef fectiveness 
of  both  tactical  doctrine  and  materiel  in  a  mid-intensity 
combined  arms  conflict.  As  previously  noted,  the  model  uses 
functionally  generated  continuous  terrain  and  currently 
simulates  a  blue  battalion  under  attack  by  an  armor  heavy 
red  regimental  force.  The  terrain  currently  in  use 
simulates  a  10  kilometer  by  10  kilometer  area  near  Fulda, 
Federal  Republic  of  Germany;  however,  other  terrain  boxes 
have  been  developed  including  one  40  kilometers  by  80 
kilometers  which  is  planned  to  be  used  with  simulation  of  a 
blue  brigade-level  force  under  attack  by  a  red 
divis  ion- level  force. 

The  current  version  of  STAR  simulates  individual  weapons 
systems  such  as  XM1  tanks,  TOW’s,  BMP’s,  T72  tanks,  and 
dragons.  These  entities  detect  enemy  systems,  select  and 
acquire  targets,  load  and  fire  their  weapons,  and  move  about 
the  simulated  battlefield  based  upon  input  parameters 
supplied  by  the  model  user.  The  user  defines  the  types  of 
weapon  systems,  the  ammunition  available,  the  tactics  to  be 
used  for  selecting  and  engaging  targets,  and  the  force  ratio 
and  range  breakpoints  used  to  determine  if  a  unit  wants  to 
withdraw  from  its  current  position.  A  line-of-sight  module 
is  used  to  determine  whether  or  not  one  system  can  see  and, 
therefore,  engage  an  enemy  system  based  upon  their 
respective  locations  on  the  continuous  terrain. 

Air  defense,  dismounted  infantry,  and  artillery  modules 
are  under  development  for  inclusion  in  the  model.  Also, 
preliminary  work  has  been  done  on  a  vehicle  evacuation  and 
repair  module  to  simulate  one  of  the  major  logistics 
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functions. 


During  the  initialization  process  for  the  STAR  model, 
each  company  is  assigned  a  weight  based  upon  the  users'  view 
of  the  importance  of  the  particular  company  in  the  overall 
defensive  posture  of  the  battalion.  This  value,  COWT,  is  an 
attribute  of  the  company  for  a  particular  phase  line  and  is 
used  by  the  movement  decision  logic.  A  company  can  and 
frequently  does  have  different  values  of  COHT  for  different 
phase  lines.  Also  during  the  initialization,  the  user 
assigns  a  value  to  column  4  of  the  array  TABLE  for  each 
company  and  weapon  system  on  every  phase  line.  This  value 
represents  the  restriction  status  of  the  unit  and  must  be  a 
one  or  a  zero.  If  the  value  is  a  one,  the  company  or  weapon 
system  is  restricted  from  moving  from  that  phase  line 
position  unless  given  permission  by  its  superior  commander. 
If  the  value  is  zero,  the  company  or  weapon  system  can  move 
at  will.  TABLE  also  stores  codes  for  all  of  the  tactical 
actions  allowed  for  each  company  and  weapon  system  on  each 
phase  line.  Associated  with  each  of  these  action  codes,  the 
TABLE  array  contains  a  force  ratio  and  an  attrition  level 
which  trigger  the  action  to  be  taken.  (Technical  Report 
NPS55-79-023  by  Parry  and  Kelleher  contains  a  complete 
description  of  the  parameters  stored  in  array  TABLE.) 

The  movement  logic  in  STAR  is  handled  by  Routine 
DECISION  which  uses  the  unit  number  of  the  unit  requesting 
or  being  ordered  to  move,  the  row  number  in  the  TABLE  array 
of  the  weapon  system  to  be  moved  by  the  unit,  and  the 
appropriate  column  number  in  the  TABLE  array.  This 
information  is  combined  with  whether  or  not  the  weapon 
system  is  restricted  from  moving  from  its  present  phase  line 
position,  which  is  in  column  4  of  the  TABLE  array.  A  flow 
diagram  of  the  logic  in  Routine  DECISION  is  given  in  Figure 
1.  The  arrays  used  by  the  movement  decision  logic  are 
described  in  Appendix  A. 
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Daring  simulation  of  a  battle,  blue  forces  may  be 
allowed  by  the  model  users'  choice  of  input  parameters  to 
move  out  of  their  current  position  as  a  result  of  heavy 
attrition  by  enemy  forces  or  because  of  the  range  to  the 
nearest  enemy  element.  Each  shot  at  a  blue  element  causes 
routine  B03.CHK  to  check  the  range  to  the  enemy.  If  it  is 
less  than  the  value  supplied  by  the  user  in  column  three  of 
the  array  TABLE  for  that  phase  line  and  that  weapon  system 
or  company,  then  routine  DECISION  is  called  to  determine  if 
the  weapon  system  or  company  is  restricted  or  is  allowed  to 
move  from  its  current  position.  Similarly,  routine  ACTION 
calls  routine  DECISION  as  blue  systems  are  killed  by  enemy 
fire  and  force  ratio  decision  points  are  reached. 

In  order  to  determine  when  a  battalion  will  give  its 
companies  permission  to  move  and  when  it  will  order  its 
companies  to  move,  each  battalion  has  three  attributes.  Two 
of  these,  BNLO  and  BN30,  are  assigned  values  by  the  user. 
The  third,  BNCOR,  is  set  to  zero  when  a  battalion  first 
occupies  a  phase  line.  Whenever  a  company  requests 
permission  to  move,  its  weight  is  added  to  the  BNCOR  value. 
If  this  value  exceeds  the  user  defined  BNLO  value,  the 
battalion  gives  all  of  its  companies  permission  to  move  at 
will.  If  the  value  of  BNCUR  exceeds  the  user  input  value  of 
BNGO,  the  battalion  orders  all  of  its  companies  to  move.  As 
long  as  BNCOR  is  less  than  BNLO,  restricted  companies  and 
systems  of  that  battalion  stay  restricted  and  are  not  given 
permission  to  move. 

When  routine  DECISION  is  called,  the  restriction  status 
of  the  company  or  weapon  system  in  array  TABLE  is  checked, 
and  the  BNCOR  value  is  updated  if  required.  Then,  if  the 
company  or  system  is  allowed  to  move,  the  appropriate 
movement  routine  is  called  to  handle  the  movement  process. 

Since  in  the  current  version  of  STAR  all  of  the  checking 
of  the  company  status,  updating  of  the  BNCOR  value,  and 


calling  of  the  movement  routines  is  done  in  the  same 
routine,  an  assumption  is  made  of  perfect  and  instantaneous 
communications  from  the  company  to  the  battalion  and  back  to 
the  company.  This  and  the  other  assumptions  of  STAR  dealing 
with  the  communications  and  decision  processes  are  discussed 
in  the  next  chapter. 
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III .  COMMUNICATIONS  ASSUMPTIONS  OF  STAR 

The  current  STAS  Combat  Model  makes  several  far-reaching 
assumptions  concerning  communications  during  simulated 
battles.  These  assumptions  are  driven  by  the  fact  that 
neither  communications  nor  electronic  warfare  is  modeled 
explicitly  in  the  current  production  version  of  STAS.  As 
noted  in  Chapter  I,  the  modeling  of  these  phenomena  were 
left  for  later  work  by  the  original  studies  done  on  STAR.  In 
order  of  decreasing  importance  the  implicit  assumptions  made 
in  the  STAS  model  concerning  communications  and  electronic 
warfare  are  listed  and  explained  below. 

1)  Communications  of  information  from  one  element  to 
another  takes  no  time.  This  assumption  means  that  a 
primary  effect  of  communications  on  the  battle 
process,  the  time  it  takes  to  reach  decisions  and 
affect  the  actions  or  posture  of  remote  units,  has 
been  ignored. 

2)  Communication  between  units  is  independent  of  the 
locations  of  the  units  and  of  the  intervening 
terrain.  In  practice,  the  intervening  terrain  often 
precludes  any  communication  between  units. 

3)  All  designated  recipients  of  a  communication  receive 
exactly  the  same  information  at  exactly  the  same 
time.  This  means  that  massages  are  never  lost  and 
all  are  handled  with  perfect  efficiency. 

4)  The  probability  of  successful  communications  between 
two  elements  is  not  affected  by  the  combat  situation 
nor  by  the  kill  condition  of  either  element.  This 
means  that  communications  gear  is  never  damaged 
during  the  battle  to  such  an  extent  that  it  cannot 
be  repaired  by  the  operator,  or  replaced. 
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5)  AL1  methods  of  communications  are  equivalent  since 
they  all  take  no  time  and  they  all  have  the  same 
probability  of  success. 

6)  All  commanders  are  always  instantaneously  aware  of  a 
change  in  the  status  of  any  of  their  units. 

Of  these  six  assumptions,  the  one  of  paramount 
importance  is  the  first  because  of  its  great  effect  on  the 
outcome  of  the  battle.  This  thesis  focuses  on  implementing  a 
communications  model  for  the  movement  decision  logic  of  the 
STAH  model  and  on  providing  a  method  of  modeling  messages  so 
that  this  first  assumption  can  be  eliminated  in  favor  of  one 
which  deals  only  with  the  distribution  of  the  time  delays 
caused  by  transmission  of  massages  from  one  entity  to 
another. 

A  description  of  the  problems  caused  by  these 
assumptions  is  presented  in  the  next  chapter. 
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17.  DESCRIPTION  OF  THE  PROBLEM 

Because  of  the  intense  effort  to  implement  a  production 
version  of  STAR  as  an  effective  combined  arms  combat  model, 
the  development  of  the  communications  aspects  of  the  model 
has  not  been  the  primary  concern  of  the  model  developers. 
The  predominant  view  concerning  communications  between  units 
has  been  that  the  oversimplified  portrayal  would  be  adequate 
until  such  time  as  the  model  was  sufficiently  sophisticated 
to  allow  the  communications  to  play  a  significant  role  in 
the  exercise  of  the  model. 

The  lack  of  an  adequate  communications  model  as  outlined 
above  together  with  the  assumptions  of  the  STAR  model 
regarding  communications  which  are  stated  in  Chapter  III 
have  a  great  effect  on  the  results  of  the  model  in  certain 
critical  situations.  For  example,  since  the  loss  of  time  in 
transmitting  information  is  ignored,  the  battalion  commander 
is  instantly  aware  when  one  of  his  companies  is  being 
heavily  attrited  by  the  enemy  and  wants  to  withdraw  from  a 
particular  position,  and  no  time  is  taken  up  by  the 
decision  process  which  generates  the  order  or  the 
communication  process  which  transmits  the  movement 
authorization  to  the  company.  This,  in  turn,  means  that 
this  particular  blue  company  is,  on  the  average,  attrited 
less  than  it  would  be  if  the  company  had  to  wait  some  length 
of  time  to  get  permission  to  move  from  its  current  position. 
Thus  blue  casualties  are  lower  than  they  would  be  for  a  more 
realistic  simulation  of  the  decision  and  communications 
process . 

This  thesis  work  was  begun  at  a  time  when  it  was  decided 
that  a  more  detailed  treatment  of  communications  was 
necessary.  It  was  determined  that  this  was  an  area  of  the 


model  where  significant  improvements  in  model  realism  could 
be  made.  At  the  same  time,  it  was  apparent  early  in  the 
development  of  the  communications  model  that  major  portions 
of  the  STAR  code  would  have  to  be  completely  rewritten  to 
implement  a  realistic  communications  simulation  model.  Many 
of  the  decisions  which  are  based  upon  communicated 
information  are  "hard- wired”  into  the  STAR  code  which  means 
that  in  order  to  change  these  decisions,  the  code  itself  had 
to  be  radically  altered  to  provide  for  more  flexibility.  As 
noted  previously,  this  thesis  work  was  begun  with  the  goal 
of  implementing  a  communications  model  within  the  STAR  model 
which  would  handle  the  message  flow  for  the  movement 
decision  logic.  This  model  was  to  be  sufficiently  flexible 
and  expandable  to  handle  the  commun ications  requirements  for 
other  functions  as  they  are  converted  to  the  explicit 
communications  representation.  A  description  of  the 
assumptions  of  the  communications  model  is  provided  in  the 
next  chapter. 
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7.  .  ASSUMPTIONS  OF  THE  COMMUNICATIONS  MODULE 

The  communications  model  developed  in  this  thesis  makes 
the  following  assumptions. 

1)  A  message  on  the  communications  net  will  not  be 
interrupted  by  another  message  trying  to  get  on  the 
net.  This  means  that  there  is  no  scheme  for  handling 
different  massage  precedence  levels. 

2)  Human  error  in  interpretation  of  the  messages  is 
negligible. 

3)  Signal  strength  during  transmission  of  a  specific 
message  does  not  vary  significantly. 

4)  The  probability  of  jamming  a  given  message  is 
independent  of  whether  or  not  a  previous  message  on 
the  same  net  was  jammed. 

5)  None  of  the  unit  commanders  are  killed  during  the 
course  of  the  battle.  This  is  accomplished  by 
setting  all  the  commanders  ammo  counts  to  zero  and 
by  setting  each  commander’s  ACVT. TYPE  attribute 
equal  to  one. 

6)  Below  the  company  level,  communications  by  messenger 
takes  approximately  the  same  time  as  electrical 
communications  and  therefore  communications  at  this 
level  is  assumed  and  is  not  modeled. 

Some  brief  comments  on  these  assumptions  are  in  order 
and  they  are  provided  below. 

Until  such  time  as  the  communications  model  is 
sufficiently  sophisticated  to  allow  for  modeling  of  traffic 
priority,  the  first  assumption  provides  an  adequate  model 
for  a  process  where  all  traffic  is  of  the  same  relative 
importance. 

The  second  assumption  covers  a  multitude  of  faults  which 
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exist  in  the  real  world  communication  process.  However,  just 
as  it  is  not  feasible  to  try  to  model  the  differences  in 
viewpoint  between  the  red  and  blue  commanders  except  in 
terms  of  doctrine,  it  is  not  feasible  to  try  to  model  the 
possible  ways  a  message  can  be  misinterpreted  since  this  is 
a  function  of  so  many  disparate  factors. 

The  third  assumption  provides  a  good  approximation  to 
reality  except  during  bad  weather  when  atmospheric 
conditions  change  with  great  rapidity,  and  when  jamming  is 
encountered.  This  assumption  has  an  explicit  proviso,  that 
is  that  the  message  lengths  must  be  short  relative  to  the 
time  scale  for  atmospheric  or  equipment  changes. 

The  fourth  assumption  is  applicable  to  this  version  of 
the  communications  model  but  will  undoubtedly  be  superceeded 
by  later  revisions  which  are  anticipated  to  model  the 
phenominon  of  jamming  in  great  detail.  In  the  current 
version  the  probability  of  jamming  is  set  by  the  user  by  his 
choice  of  the  values  for  the  global  variables  which  are  used 
by  the  SI3SCRIPT  random  number  generator.  A  description  of 
the  global  variables  used  in  the  communications  model  is 
provided  in  Appendix  C. 

The  fifth  assumption  is  made  because  this  entire  area  of 
battlefield  synergism  is  not  being  played  in  the  model.  In 
real  combat,  commanders  are  killed  and  units  lose  or  gain 
effectiveness  based  upon  the  capabilities  of  the 
subordinates  who  assume  command.  There  is  no  data  to  support 
any  sort  of  model  of  this  gain/loss  of  effectiveness,  and  it 
is  not  anticipated  that  any  attempt  will  be  made  to 
incorporate  this  sort  of  detail  in  the  model  since  it  turns 
primarily  on  capabilities  of  individuals  such  as  leadership, 
judgment,  and  decisiveness  which  are  essentially  not 
quantifiable. 

The  rationale  for  the  sixth  assumption  and  for  not 
modeling  the  communications  below  the  company  level  is  that 


these  emitters  are  genera  lly  so  close  together  that  it  is 
almost  always  possible  to  pass  traffic  between  them,  and 
jamming  them  becomes  prohibitively  expensive  in  terms  of 
level  of  effort  and  expenditure  of  resources.  Also,  because 
they  are  relatively  close  together,  critical  information  can 
be  passed  by  messenger  in  a  time  that  is  roughly  equivalent 
to  the  time  required  to  pass  the  information  by  electronic 
methods.  This  is  not  true  for  messages  between  the  higher 
level  commanders  where  the  time  for  a  messanger  to  deliver 
the  information  would  be  orders  of  magnitude  larger  than  the 
time  to  deliver  the  information  by  electronic  means.  In 
addition,  modeling  all  these  details  would  consume  valuable 
computer  resources  which  can  be  more  profitably  used  to 
represent  other  aspects  of  the  combined  arms  battle. 

Unlike  the  communications  model  currently  employed  by 
the  STAR  model  which  assumes  no  loss  of  time  in  transmitting 
information  from  one  unit  to  another  during  the  course  of 
the  battle,  the  one  developed  in  this  thesis  provides  the 
user  of  the  model  with  almost  complete  freedom  in  his  choice 
of  how  to  model  -he  distributions  of  the  time  delays 
involved  in  the  communications  and  decision  processes.  The 
guidelines  for  model  parameterization  are  covered  in  detail 
in  Chapter  VII.  A  complete  description  of  the  communications 
model  is  provided  in  the  next  chapter. 
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VI.  D ESC SIPTI ON  OF  THE  COMMUNICATIONS  MODULE 


The  communications  model  developed  in  this  thesis  is  an 
amalgum  of  ideas  and  concepts  from  many  sources.  The  logic 
of  the  STAR  model  necessarily  makes  many  decisions  which  in 
real  life  are  based  upon  information  communicated  to  the 
commanders  by  sources  outside  their  immediate  area.  Most  of 
this  information  is  provided  to  the  commander  in  the  form  of 
a  written  or  verbal  message.  While  these  messages  do  not 
conform  to  any  set  format,  there  are  certain  minimum 
essential  elements  of  information  contained  in  them  which 
are  determined  by  the  type  or  intent  of  the  message.  For 
example,  as  a  minimum,  a  request  by  a  company  for  permission 
to  move  from  a  specified  position  must  include  a  unit 
designator  and  some  type  of  code  to  identify  this  message  as 
a  request  to  move.  Since  different  types  of  messages  will 
necessarily  have  different  minimum  information  contents,  it 
was  decided  that  the  massages  and  their  text  portions  should 
be  modeled  separately.  In  order  to  help  the  reader  with 
understanding  the  logic  flow  which  will  be  discussed  in  this 
chapter,  the  entities  and  their  pointers  which  are  used  by 
the  communications  logic  are  diagrammed  in  Figure  2.  Also, 
the  arrays  and  sets  used  by  the  communications  logic  are 
described  in  Appendices  F  and  G  respectively. 

To  represent  the  flow  of  information  within  the  model, 
messages  are  generated  as  temporary  entities  whenever  a 
decision  point  is  reached  where  information  must  be  passed 
between  two  subscribers  which  are  spatially  separated  or  are 
not  from  the  same  command  level.  There  is  one  exception  to 
this  policy:  the  internal  company  communications. 
Communications  from  individuals  to  their  platoon  leaders  and 
from  the  platoon  leaders  to  the  company  commanders  are 
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assumed  ta  be  100*  reliable  and  take  no  time.  This  is  not 
the  case  for  communications  between  the  company  commanders 
or  for  communications  between  any  of  the  higher  level 
commanders. 

The  communications  module  being  implemented  uses  the 
same  basic  decision  logic  as  that  diagrammed  in  Figure  1. 
However,  since  the  primary  emphasis  of  this  thesis  was  to 
model  the  communnications  delays  and  the  effects  they  have 
on  the  eventual  outcome  of  the  simulation,  the  DECISION 
routine  had  to  be  completely  rewritten  to  allow  the 
representation  of  these  delays.  Routine  DECISION  was 
actually  taken  apart  and  broken  down  into  seven  mutually 
disjoint  new  routines.  These  seven  routines  utilize  the  same 
arrays  and  sets  as  the  original  DECISION  routine  to  model 
the  decision  process.  Four  of  these  routines,  DEC. CO, 
DEC. BN,  DEC.BDE,  and  DEC. DIF,  handle  the  movement  decision 
logic  at  the  various  command  levels.  The  fifth  routine, 
DECISION,  acts  as  the  driver  which  initiates  the  movement 
decision  process  when  called  by  either  BUG.CHK  or  ACTION 

r 

from  the  STAR  logic.  The  sixth  routine,  EXIT,  provides  an 
exit  from  the  movement  decision  logic  under  specified 
conditions.  The  seventh  routine,  GEN. MOVE. DECISION. MSG, 
produces  the  appropriate  message  which  is  transferred 
between  these  routines  carrying  the  information  required  for 
the  decision  to  be  made.  These  routines  are  discussed  in 
more  detail  later  in  this  chapter  along  with  all  the 
communications  routines  and  events  necessary  for  the 
transfer  of  messages  between  them.  The  SIMSCRIPT  code  for 
these  modules  is  provided  in  Appendices  H  through  0 
respectively.  Instead  of  changing  the  information  known  by 
all  the  commanders  at  all  levels  when  a  company  commander 
decides  to  request  permission  to  move,  the  communications 
model  stochastically  generates  and  sends  a  MESSAGE  from  the 
company  commander  to  the  battalion  commander  containing  the 
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request.  When  this  MESSAGE  transmission  ends,  the  model 
provides  the  STAR  decision  logic  with  the  information 
necessary  for  a  decision  by  the  battalion  commander  and  then 
stochastically  models  the  transmission  of  the  decision  by 
generating  and  sending  a  MESSAGE  from  the  battalion 
commander  to  the  company  commander.  If  the  users  choice  of 
inputs  does  not  allow  the  battalion  commander  to  give 
permission  to  move  to  the  company  commander,  another  MESSAGE 
is  generated  and  sent. This  new  MESSAGE  goes  to  the  brigade 
level  and  when  the  transmission  ends,  the  decision  logic  at 
the  brigade  level  either  generates  the  decision  and  sends  a 
MESSAGE  back  to  the  battalion  or  passes  a  further  request 
for  permission  to  move  on  to  the  division  level.  As  the 
model  stands,  the  division  level  cannot  send  a  message 
higher  and  thus  is  the  ultimate  decision  authority.  The  user 
should  be  aware  that  his  choices  of  break  point  bounds  and 
restriction  status  for  the  simulated  units  are  critical  for 
a  realistic  simulation.  Flow  diagrams  of  the  modified 
decision  logic  used  in  the  communications  model  are  given  in 
Figures  3,  4,  5,  6,  and  7.  In  addition,  a  partial  listing  of 
the  output  of  the  model  is  provided  as  Appendix  II.  This 
listing  has  been  greatly  shortened,  but  serves  to  illustrate 
the  type  of  output  which  can  be  expected  from  the  model 
during  execution.  A  description  of  the  flow  of  the 
communications  model  routines  and  events  will  be  given  next 
to  familiarize  the  reader  with  the  details  of  the  model. 


A.  COM. MAIN 

The  SIMSCRIPT  code  for  routine  COM. MAIN  is  provided  in 
Appendix  0.  It  is  the  first  of  the  communications  model 
routines  to  be  executed.  It  is  called  from  BL. CREATE  and  it 
in  turn  calls  all  the  initialization  routines  for  the 
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communications  module  before  listing  the  attributes  of  each 

B.MVR.CDR,  COMPANY. COMMANDER,  BN. COMM ANDER,  BDE. COMMANDER, 
DIV .COMMANDER,  and  UNIT.  COM. MAIN  is  the  last  executable 
routine  called  by  BL. CREATE,  and  when  it  terminates,  the 
SIMSCRIPT  timing  routine  takes  control  since  the  simulation 
has  already  been  started. 

B.  BUILDNETS 

The  SIMSCRIPT  coda  for  routine  BUILDNETS  is  provided  in 
Appendix  P.  It  reads  in  the  data  on  the  FMNETs  which  are  to 
be  simulated  and  on  which  UNITS  belong  to  each  FMNET .  It 
then  creates  the  nets  and  the  SUBSCRIBERS  and  places  the 
SUBSCRIBERS  in  the  CEOI.LIST  for  their  net.  It  also  reads 
any  alternate  frequencies  which  are  assigned  to  the  FMNET 
and  stores  them  in  the  array  FM.  PUSHES.  It  then  returns 
control  to  COM. MAIN. 

C.  CHECKNETS 

The  SIMSCRIPT  code  for  routine  CHECKNETS  is  provided  in 
Appendix  3.  It  goes  through  each  FMNET  that  has  been  created 
and  prints  out  the  information  on  them.  It  prints  the  net 
number,  the  net  frequency,  the  number  and  frequency  of  any 
alternate  frequencies,  and  the  number  of  SUBSCRIBERS 
assigned  to  the  net  before  returning  control  to  COM. MAIN. 

D.  BNETTBL 

The  SIMSCRIPT  coda  for  routine  BNETTBL  is  provided  in 
Appendix  R.  It  cycles  through  all  the  FMNETs  and  creates  and 
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prints  out  two  tables.  The  first,  NETTBL ,  is  used  during 
execution  of  the  communications  routine.  It  contains  the 
identity  numbers  of  the  SUBSCRIBERS  belonging  to  the  ith 
FMNET  in  the  ith  row.  The  second  table  has  the  address 
pointers  to  the  SUBSCRIBERS  in  the  ith  FMNET  in  its  ith  row. 
After  printing  both  tables,  BNETTBL  returns  control  to 
COM. MAIN. 


S.  ROUTINE  COMMGEAR 

The  SIMSCRIPT  code  for  routine  COMMGEAR  is  provided  in 
Appendix  S.  It  reads  in  the  data  on  how  many  UNITS/TANKS 
have  communications  equipment  and  creates  a  MISET  for  each 
of  them.  It  then  creates  the  RT.CONFIGs  for  each  TANK  and 
reads  in  the  characteristic  data  for  each  RT. CONFIG  assigned 
to  each  TANK  and  files  the  information  as  attributes  of  the 
RT. CONFIG.  If  the  data  indicates  that  the  antenna  is 
directional  or  remote! ,  a  message  is  printed  and  the  job 
terminates  since  there  are  no  provisions  in  the  current 
model  for  handling  directional  or  remote!  antennas. 
Eventually,  these  are  planned  for  inclusion,  however.  The 
routine  than  cycles  through  the  FMNETs  and  sets  the  first 
message  number  for  each  SUBSCRIBER  in  each  net  equal  to 
nOOl,  where  n  is  the  identity  number  of  the  SUBSCRIBER. 
Finally,  this  routine  places  the  SUBSCRIBERS  in  the  nets  and 
returns  control  to  COM. MAIN. 


F.  ROUTINE  COMMCHECK 

The  SIMSCRIPT  code  for  routine  COMMCHECK  is  provided  in 
Appendix  I.  It  cycles  through  each  TANK  in  BLUE. ALIVE  and 
prints  out  the  communications  gear  assigned  to  each  TANK. 


Foe  each  RT. CONFIG  it  prints  nut  the  x, y,  and  z  coordinates, 
the  type  of  radio,  the  radio  node  of  operation,  the  antenna 
type,  and  the  location  of  the  antenna  which  currently  must 
be  the  same  as  the  location  of  the  TANK.  If  either  a 
directional  or  remote!  antenna  is  detected,  a  message  is 
printed  and  the  program  halts.  This  is  done  because  the 
routines  which  are  planned  to  handle  this  have  not  yet  been 
included  in  the  model.  Finally,  it  prints  the  number  of  the 
net  to  which  each  RT. CONFIG  is  tuned  before  returning 
control  to  CON. MAIN. 


G.  ROUTINE  INITIALIZE 

The  SIMSCRIPT  code  for  routine  INITIALIZE  is  provided  in 
Appendix  U.  It  reads  in  the  values  for  the  parameters  used 
by  the  communications  routines  for  generating  random  numbers 
and  for  contrcling  the  print  out  of  data.  It  also  reads  in 
the  lower  and  upper  bounds  for  the  destination  codes  of 
messages  being  sent  to  the  company,  battalion,  brigade,  and 
division  levels.  It  also  calls  routines  STAT. DUMP  and 
SSTAT.DUMP  before  it  returns  control  to  COM. MAIN. 


H.  ROUTINE  STAT. DUMP 


The  SIMSCRIPT  code  for  routine  STAT. DUMP  is  provided  in 
Appendix  V.  It  lists  the  attributes  of  each 
COMPANY. COMMANDER,  BN. COMMANDER,  EDE. COMM ANDER,  and 
DI7 .COMMANDER  and  is  used  primarily  as  an  aid  to  debugging. 
In  addition  to  the  initial  call  from  routine  INITIALIZE,  it 
is  called  from  routine  END.XSMN  periodically  based  upon  the 
value  supplied  by  the  user  for  global  variable 
COM. DATA. DUMP.  Complete  descriptions  of  the  global  variables 
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used  in  the  communications  model  are  provided  in  Appendix  C 
while  the  attributes  of  the  permanent  and  temporary  entities 
are  described  in  Appendices  D  and  E  respectively. 


I.  ROUTINE  SSTAT .DUMP 

The  SIMSCRIPT  code  for  routine  SSTAT. DUMP  is  provided  in 
Appendix  ».  It  prints  out  the  contents  of  the  BDECORD, 
BNCORD,  and  COCORD  arrays.  This  is  another  of  the  print 
routines  designed  to  aid  in  debugging  the  code  if  it  should 
fail.  The  arrays  used  in  the  communications  model  are  listed 
and  explained  in  Appendix  F. 

Once  initialization  of  the  modules  has  been  accomplished 
and  the  SIMSCRIPT  II. 5  timing  routine  has  taken  control  of 
the  system,  the  event  step  sequence  determines  the  order  in 
which  the  routines  and  events  will  take  place.  The  following 
description  of  the  routines  and  events  is  done  as  if  tracing 
the  flow  of  a  specific  decision  through  the  system.  Whenever 
in  the  following  narrative  the  phrase  "a  message  is  sent"  is 
encountered,  it  should  be  taken  to  mean  "a  COMMO. ATTEMPT  is 
scheduled.  " 


J.  ROUTINE  DECISION 

The  SIMSCRIPT  code  for  routine  DECISION  is  provided  in 
Appendix  H.  The  flow  diagram  for  the  logic  of  routine 
DECISION  is  given  in  Figure  3.  DECISION  is  called  by  either 
BU3.CHK  or  ACTION  from  the  STAR  logic.  Both  of  these 
routines  were  significantly  altered  to  allow  them  to 
interface  with  the  new  decision  logic  routines.  Routine 
DECISION  checks  to  see  if  this  call  is  a  company  or  section 
requesting  permission  to  move  by  testing  the  value  of  the 
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elament  of  array  MVARY  referred  to  by  the  row  and  column  of 
the  call.  If  it  is  not  a  company  or  section,  DECISION  calls 
the  appropriate  move  routine  and  schedules  a  RE. MV. STATE  for 
the  calling  unit  in  60  seconds  and  then  returns  from  routine 
DECISION.  If  it  is  a  company  or  section  request,  the  logic 
goes  on  to  test  the  restriction  status  of  the  company  or 
section  which  is  located  in  the  TABLE  array.  If  the  company 
or  section  is  not  restricted,  the  appropriate  movement 
routine  is  called  and  a  message  is  created  and  sent 
informing  the  battalion  of  the  unit  move.  If  the  unit  is 
restricted  from  moving,  the  value  of  CREQST  is  checked  to 
sea  if  the  unit  has  previously  requested  permission  to  move. 
If  a  previous  request  has  occurred,  a  message  is  printed 
noting  that  fact  and  then  the  program  returns  from  routine 
DECISION.  If  there  has  been  no  previous  request  for 
permission  to  move,  the  logic  checks  to  see  if  the  unit  is 
on  the  same  phase  line  as  the  rest  of  the  units  of  the 
battalion.  If  the  unit  is  farther  to  the  rear  than  the 
battalion,  a  message  is  printed,  and  the  program  returns 
from  routine  DECISION.  If  the  unit  is  on  the  battalion  phase 
line  the  program  checks  to  see  if  the  unit  has  been  given 
permission  to  move.  If  the  unit  has  been  given  permission  to 
move,  the  appropriate  movement  routine  is  called  and  a 
message  is  generated  and  sent  informing  the  battalion  of  the 
unit  move.  If  the  unit  does  not  have  permission  to  move,  a 
message  is  generated  and  sent  to  the  battalion  requesting 
permission  to  move.  After  this,  the  program  exits  from 
routine  DECISION. 


K.  ROUTINE  GEN. MOVE. DECISION. MSG 

The  SIMSCRIPT  code  for  routine  GEN .MOVE. DECISION. MSG  is 
provided  in  Appendix  N.  It  is  called  by  all  the  movement 
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decision  logic  routines  and  it  creates  the  message  which  is 
sent  from  one  level  to  another  by  the  flow  of  the 
communications  logic.  This  routine  first  creates  a  message 
and  then  sets  up  an  array  called  TEXT.  A  pointer  to  the  TEXT 
array  where  the  message's  content  is  stored  is  saved  as  an 
attribute  of  the  MESSAGE.  After  storing  all  the  relevant 
information  either  as  attributes  of  the  MESSAGE  or  in  the 
TEXT  array#  the  program  returns  from  routine 
GEN. MOVE. DEC! SION. MSG. 


L.  EVENT  COMMO.  ATTEMPT 

The  SIMSCRIPT  code  for  event  COMMO. ATTEMPT  is  provided 
in  Appendix  X.  The  flow  diagram  for  the  logic  of  event 
COMMO. ATTEMPT  is  provided  in  Figure  8.  Event  COMMO. ATTEMPT 
takes  the  messages  which  are  created  by  the  decision  process 
and  stochastically  models  their  transmission.  This  event 
first  checks  both  the  sending  and  receiving  UNIT/TANK  to 
insure  that  both  have  radios.  If  either  one  does  not  have  a 
radio,  it  prints  an  error  message  and  stops  the  simulation. 
It  then  checks  to  be  sure  that  both  UNITs  are  on  the  same 
FMNET .  If  they  are  not,  it  prints  an  error  message  and  stops 
the  simulation.  If  they  are,  and  the  net  is  not  busy,  it 
sets  the  net  to  busy  and  calls  routine  TECH. COMMO  which 
checks  co  see  if  communication  between  the  two  radios  is 
technically  possible.  If  the  net  is  busy,  it  files  the 
MESSAGE  in  the  MAILBAG  for  that  SUBSCRIBER  and  returns  from 
event  COMMO. ATTEMPT. 


M.  ROUTINE  TECH. COMMO 

The  SIMSCRIPT  code  for  routine  TECH. COMMO  is  provided  in 
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Appendix  Y.  Houtine  TECH. COMMO  determines  whether 
communication  between  two  specific  radios  is  technically 
possible.  It  returns  one  of  four  values  for  the  ABILITY  of 
the  communication.  It  is  either  ROGER,  meaning  good,  or 
MARGINAL,  or  JAMMED,  or  NEGATIVE  meaning  there  was  no  answer 
by  the  distant  station.  If  the  ABILITY  is  JAMMED,  event 
CHANGE. FREQ  is  scheduled  and  the  program  returns  from  event 
COMMO. ATTEMPT.  If  the  ABILITY  is  NEGATIVE,  event  NO. CONTACT 
is  scheduled  and  the  program  returns  from  event 
COMMO. ATTEMPT.  If  the  ABILITY  is  either  ROGER  or  MARGINAL, 
routine  EH. ROUTINE  is  called  to  determine  if  the  messagge 
will  be  jammed  during  transmission.  If  the  EH. ROUTINE  call 
indicates  that  the  transmission  is  jammed,  event  CHANGE. FREQ 
is  scheduled  and  the  program  returns  from  event 
COMMO. ATTEMPT .  If  the  transmission  is  not  jammed,  event 
END.XSMN  is  scheduled  and  the  program  returns  from  event 
COMMO. ATTEMPT.  It  currently  generates  the  four  possible 
results  by  doing  a  random  draw  against  the  four  integers  0, 
1,  2,  and  3.  An  initial  procedure  has  been  written  to 
generate  these  values  for  ABILITY  by  a  detailed  algorithm 
based  upon  the  radio  characteristics,  the  terrain,  and  the 
locations  of  the  two  SUBSCRIBERS.  This  detailed  algorithm 
will  be  enhanced  and  eventually  it  will  replace  the  random 
draw  currently  in  use. 


N.  EVENT  CHANGE.  FREQ 

The  SIMSCRIPT  code  for  event  CHANGE. FREQ  is  provided  in 
Appendix  Z.  Event  CHANGE. FREQ  simulates  the  delay  caused  by 
having  to  change  the  net  frequency  as  a  result  of  its  being 
jammed.  It  sets  the  attributes  of  the  net  and  the  calling 
radio-  to  idle  and  then  reschedules  the  COMMO . ATTEMPT. 
Bedause  the  scheduling  of  the  CHANGE. FREQevent  includes  the 
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delay  time  that  would  be  caused  by  changing  the  frequency, 
the  COM  MO. ATTEMPT  is  rescheduled  "now.”  Also,  because  the 
probability  of  jamming  is  independent  and  there  is  no  memory 
of  the  frequency,  the  frequency  is  not  actually  changed. 


0.  ROUTINE  EH. ROUTINE 


The  SIMSCRIPT  code  for  routine  EW. ROUTINE  is  provided  in 
Appendix  AA.  Routine  EW. ROUTINE  simulates  the  possibility  of 
a  transmission  being  detected  and  jammed  by  enemy  action. 
At  present,  this  is  a  random  draw  from  0,1,  2,  and  3  with 
equal  probabilities.  A  draft  module  to  model  the  direction 
finding  and  jamming  activities  explicitly  has  been  written 
and  it  will  be  enhanced  and  will  eventually  replace  the 
current  uniform  random  draw. 


P.  EVENT  NO. CONTACT 

The  SIMSCRIPT  code  for  event  NO. CONTACT  is  provided  in 
Appendix  BB .  Event  NO. CONTACT  simulates  the  occurance  of  no 
response  by  the  distant  station.  It  sets  the  status  of  the 
net  and  the  calling  radio  to  idle  and  then  calls  routine 
SIEZE.NET  before  filing  the  current  MESSAGE  in  the  MAILBAG 
of  the  calling  radio. 


Q.  ROUTINE  SIEZE.NET 

The  SIMSCRIPT  code  for  routine  SIEZE.NET  is  provided  in 
Appendix  CC.  Routine  SIEZE.NET  does  a  random  draw  against 
all  the  SUBSCRIBERS  on  a  specific  FMNET  which  have  MESSAGESs 
waiting  in  their  MAILBAGs  to  determine  which  of  them  will 
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get  the  aet  which  has  been  left  idle  as  a  result  of  the 
occurance  of  either  a  NO. CONTACT  or  END.XSMN  event.  It  then 
removes  that  MESSAGE  from  its  MAILBAG  and  schedules  a 
COM  MO. ATTEMPT  "now." 


R.  EVENT  END.XSMN 

The  SIMSCRIPT  code  for  event  END.XSMN  is  provided  in 
Appendix  DD.  The  flow  diagram  for  the  logic  of  event 
END.XSMN  is  provided  in  Figure  9.  Event  END.XSMN  simulates 
the  arrival  of  the  MESSAGE  at  the  distant  station.  It 

r 

gathers  the  message  identification  data  into  global 
variables  and  then  destroys  the  MESSAGE.  It  then  tests  the 
value  of  the  the  destination  code  of  the  message  to 
determine  which  level  of  the  logic  should  handle  the 
MESSAGE.  This  is  possible  since  every  MESSAGE  has  both  a 
type  and  a  destination  code  and  because  the  text  of  the 
message  where  the  data  for  the  decision  process  is  stored  is 
set  up  as  a  separate  variable  length  record  for  which  only  a 
pointer  is  stored  in  the  actual  MESSAGE.  This  means  that 
each  type  lessage  can  have  a  different  length  text,  and  the 
contents  can  be  generated  separately  from  the  actual  fixed 
format  portion  of  the  MESSAGE.  The  attributes  of  each 
MESSAGE  are  passed  as  arguments  through  the  communications 
process.  A  diagram  of  the  pointer  links  used  in  the 
communications  logic  is  provided  in  Figure  2.  Based  upon 
the  destination  code,  one  of  the  message  distribution 
routines,  CO. MSG,  BN. MSG,  BDE.MSG,  or  DIV.MSG  is  called.  It 
then  releases  the  text  where  the  MESSAGE  data  was  stored  and 
sets  the  status  of  the  calling  radio,  the  receiving  radio, 
and  the  FMNET  to  idle.  It  then  checks  the  simulation  time 
using  the  FORTRAN  routine  MYTIME  to  see  if  the  allocated  CPU 
time  for  the  execution  of  the  program  is  about  to  run  out. 
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FIGURE  9 
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If  less  than  10  seconds  of  time  remain,  a  STOP. SIMULATION  is 
scheduled  "now."  Regardless  of  the  time  remaining,  the  time 
since  the  last  printout  of  the  attributes  of  the  commanders 
is  checked  and  if  it  is  has  been  approximately  (within  10%) 
COH.Dft.Tk.DaHP  seconds  since  the  last  print,  routine 
ST&T.DOMP  is  called.  Finally,  routine  SIEZE.NET  is  called 
and  the  program  returns  from  event  END . XSMN . 


S.  ROUTINE S  CO. MSG,  BN. MSG,  BDE.MSG,  and  DIV.MSG 

The  SIMSCRIPT  code  for  all  of  these  routines  is  provided 
in  Appendix  EE.  Routines  CO. MSG,  BN. MSG,  BDE.MSG,  and 
DIV.MSG  all  act  as  distribution  activities  which  test  the 
value  of  the  type  of  the  MESSAGE  and  call  the  appropriate 
logic  routine  to  handle  that  MESSAGE.  In  future  versions  of 
the  model  there  will  be  many  different  types  of  messages 
corresponding  to  the  different  functions  to  be  accomplished 
by  the  messages  such  as  calling  for  air  support,  artillery 
fires,  or  logistics  support.  Routines  DEC.co,  DEC. BN, 
DEC.BDE,  and  DEC.DIV  are  all  called  from  these  .MSG 
routines. 


T.  ROUTINE  DEC.CO 

The  SIMSCRIPT  code  for  routine  DEC.CO  is  provided  in 
Appendix  I.  In  addition,  a  flow  diagram  of  the  logic  for 
routine  DEC.CO  is  provided  in  Figure  4.  Routine  DEC.CO 
handles  the  movement  decision  logic  at  the  company  level. 
It  is  called  from  routine  CO. MSG  based  upon  the  value  of  the 
MSG. TYPE  attribute  of  the  MESSAGE.  It  first  stores  the  text 
of  the  MESSAGE  in  global  variables  and  then  tests  for  the 
specific  type  of  the  MESSAGE.  The  MESSAGE  types  are 
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delineated  in  the  PREAMBLE  as  global  "DEFINE  TO  MEAN" 
statements.  Based  upon  the  value  of  the  MSG. TYPE,  several 
different  actions  are  taken.  If  the  MESSAGE  restricts  the 
company  from  moving,  the  company* s  permission  attribute  is 
set  to  zero,  a  line  noting  that  the  company  has  been  ordered 
not  to  move  is  printed  and  the  program  returns.  If  the 
MESSAGE  gives  the  company  permission  to  move,  the  company's 
permission  attribute  is  set  to  one  and  a  line  noting  that 
the  company  has  been  given  permission  to  move  is  printed 
before  further  processing  of  the  MESSAGE  is  attempted.  If 
the  MESSSAGE  orders  the  company  to  move,  the  company's 
permission  attribute  is  set  to  one,  a  line  noting  that  the 
company  has  been  ordered  to  move  is  printed,  and  then 
movement  of  each  TANK  in  the  company  is  initiated.  Routine 
AIR . COM  MO  and  routine  CO. GO  are  called  for  each  TANK  and  a 
RE. MV. STATE  is  scheduled  for  the  company  in  60  seconds.  At 
this  point,  the  value  of  ORDER  is  set  to  two  and  routine 
EXIT  is  called  prior  to  the  return  from  the  DEC. CO  routine. 
If  the  message  falls  past  the  above  described  procedures 
which  provide  returns,  it  then  causes  the  location  of  the 
company  to  be  determined.  Then  it  checks  to  see  if  the 
company  has  been  given  permission  to  move.  If  it  has,  ORDER 
is  set  to  one.  If  not,  ORDER  is  not  reset  from  the  value  it 
has  on  entry  to  this  section  of  code.  Then  routine  EXIT  is 
called  and  the  program  returns. 


0.  ROUTINE  DEC. BN 

The  SIMSCRIPT  code  for  routine  DEC. BN  is  provided  in 
Appendix  J.  A  flow  diagram  of  the  logic  for  routine  DEC. BN 
is  provided  in  Figure  5.  This  routine  handles  the  movement 
decision  logic  at  the  battalion  level.  It  is  called  from 
routine  BN. MSG  based  upon  the  value  of  the  MSG. TYPE 
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attribute  of  the  MESSAGE  being  processed.  It  stores  the 
text  of  the  MESSAGE  in  global  variables  and  then  tests  for 
the  specific  type  of  the  MESSAGE.  If  the  MESSAGE  is  a 
request  to  move  from  a  company  which  has  not  previously 
requested  permission  to  move,  the  value  of  COWT  is  added  to 
BNCUR  and  the  request  count  of  the  company  is  set  to  one 
before  any  furthur  processing  is  attempted.  It  then  checks 
to  see  if  the  MESSAGE  is  a  notification  of  a  company  or 
section  move.  If  it  is  a  company  movement  notification,  a 
line  noting  that  fact  is  printed  and  then  a  MESSAGE  is 
generated  and  sent  to  inform  the  brigade  that  a  company  has 
moved.  If  it  is  a  section  movement  notification,  a  line 
noting  that  fact  is  printed  and  the  program  returns.  If  the 
MESSAGE  is  an  order  to  the  battalion  tc  move,  the 
battalion's  permission  attribute  is  set  to  one  and  the  BNGO 
value  is  added  toe  the  BNCUR  value  prior  to  further 
processing.  If  the  MESSAGE  is  permission  for  the  battalion 
to  move,  the  battalion's  permission  attribute  is  set  to  one 
and  the  BNCOR  value  is  set  equal  to  the  BNLO  threshold.  If 
the  MESSAGE  orders  the  battalion  not  to  move,  the 
battalion's  permission  attribute  is  set  to  zero  and  the 
program  returns  without  any  further  processing.  When  a 
MESSAGE  reaches  this  point,  the  originator  and  addressee  are 
interchanged  to  facilitate  subsequent  responses.  At  this 
point,  the  permission  status  of  the  battalion  is  checked.  If 
it  is  a  one,  the  battalion  has  permission  to  move  and 
subsequent  tests  are  done  to  see  if  the  BNCOR  value  has 
exceeded  the  BNLO  or  the  BNGO  thresholds.  First,  the  BNGO 
bound  is  checked  and  if  it  has  been  exceeded,  a  MESSAGE  is 
generated  and  sent  to  each  company  in  the  battalion  ordering 
the  companies  to  move.  Also,  a  line  is  printed  stating  that 
the  companies  have  been  ordered  to  move  and  a  MESSAGE  is 
generated  and  sent  informing  the  brigade  that  the  companies 
have  all  been-ordered  to  move.  If  the  BNLO  threshold  has 
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been  exceeded#  each  company  is  sent  a  MESSAGE  which  gives  it 
permission  to  move  and  a  line  is  printed  noting  that  fact. 
Also,  a  MESSAGE  is  sent  to  the  brigade  with  the  information 
that  all  the  companies  have  been  given  permission  to  move. 
If  the  BNCUR  value  doesn’t  exceed  BNLO ,  the  company  is  sent 
a  MESSAGE  ordering  it  not  to  move  and  a  line  is  printed 
noting  this  action.  If  the  battalion  is  restricted  from 
moving  and  the  BNCUR  value  exceeds  the  BNLO  bound,  the 
battalion  sends  a  MESSAGE  to  the  brigade  requesting 
permission  to  move.  Finally,  if  the  battalion  is  restricted 
and  the  BNCUR  value  does  not  exceed  the  BNLO  bound,  the 
battalion  sends  a  MESSAGE  to  the  originating  company 
ordering  it  not  to  move.  Then  the  program  returns  from 
routine  DEC. BN. 


7.  ROUTINE  DEC. BDE 

The  SIMSCRIPT  coda  for  routine  PEC. BDE  is  provided  in 
Appendix  K.  A  flow  diagram  of  the  logic  for  routine  DEC. BDE 
is  provided  in  Figure  6.  This  routine  handles  the  movement 

t 

£  decision  logic  at  the  brigade  level.  It  is  called  from 

|  routine  BDE. MSG  based  upon  the  value  of  the  MSG. TYPE  of  the 

MESSAGE  being  processed.  The  logic  of  this  routine  is 
exactly  symmetric  to  the  logic  in  routine  DEC. BN  with 
battalion,  brigade,  and  division  substituted  for  company, 
battalion,  and  brigade  respectively.  The  attributes  used 
must  be  those  for  the  brigade  vice  those  for  the  battalion. 


H.  ROUTINE  DEC. DIV 

The  SIMSCRIPT  code  for  routine  DEC. DIV  is  provided  in 
Appendix  L.  A  flow  diagram  for  the  logic  of  routine  DEC. DIV 
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is  provided  in  Figure  7.  This  routine  handles  the  movement 
decision  logic  at  the  division  level.  It  is  called  from 
routine  DIV.MSG  based  upon  the  value  of  the  MSG. TYPE  of  the 
MESSAGE  being  processed.  The  logic  of  this  routine  is  the 
same  as  that  at  the  battalion  and  brigade  level  except  that 
it  is  somewhat  truncated  since  no  messages  are  sent  to  a 
higher  command.  The  attributes  used  must  be  those  for  the 
division  level  and. brigade  and  division  must  be  substituted 
for  battalion  and  brigade. 

X.  EVENT  DUMP. MAILBAG 

The  SIMSCRIPT  code  for  event  DUMP. MAILBAG  is  provided  in 
Appendix  FF.  Event  DUMP. MAILBAG  simulates  the  event  of  going 
through  all  the  MAIL . BAGs  of  all  the  SUBSCRIBERS  and 
checking  to  see  if  the  time  of  the  simulation  has  exceeded 
the  LST. SEND. TIME  for  any  of  the  MESSAGES  in  any  of  the 
MAILBAGs.  Each  MESSAGE  which  is  too  old  is  removed  from  its 
MAILBAG  and  routine  ABORT.  MSG  is  called  for  it.  Event 
DUMP. MAILBAG  then  reschedules  itself  in  600  seconds. 


Y.  ROUTINE  ABORT. MSG 

The  SIMSCRIPT  code  for  routine  ABORT. MSG  is  provided  in 
Appendix  3G.  Routine  ABORT. MSG  simulates  the  action  of 
sending  a  MESSAGE  by  another  means  if  it  gets  to  be  a 
certain  age  rather  than  to  continue  to  wait  for  the 
transmission.  Currently,  it  simply  destroys  the  MESSAGE, 
but,  it  is  planned  to  upgrade  this  routine  so  that  it  will 
simulate  the  transmission  by  courier  or  some  other  means 
explicitly. 
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Z.  EVENT  MSG. GEN 

The  SIMSCRIPT  code  for  event  MSG. GEN  is  provided  in 
Appendix  HH.  Event  MSG. GEN  simulates  the  background  noise 
messages  which  monopolize  the  communications  nets  and  with 
which  the  movement  decision  messages  must  compete  for  time 
on  the  nets.  It  generates  messages  at  random  on  all  the 
simulated  nets.  It  first  checks  to  insure  there  are  at  least 
two  SUBSCRIBERS  on  the  net.  Then  it  selects  at  random  one 
of  these  SUBSCRIBERS  to  be  the  originator  of  the  MESSAGE  and 
another  of  them  to  be  the  destination  of  the  MESSAGE.  It 
then  creates  the  MESSAGE,  sets  its  attributes,  increments 
the  NXT.M33.NO  for  the  originating  station,  and  schedules 
the  COMMO. ATTEMPT  to  send  the  MESSAGE.  It  then  selects  at 
random  the  next  FMNET  on  which  a  '‘noise”  MESSAGE  will  be 
sent  and  reschedules  itself  to  generate  the  MESSAGE  on  that 
net . 
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VII.  COMMUNICATIONS  MODULE  PARAMETERIZATION 


There  are  several  features  of  the  commun  ications 
parameterization  process  which  warrant  detailed  examination 
and  they  are  covered  in  the  paragraphs  below. 

The  communications  between  any  two  receivers  in  the  same 
net  depends  on  several  variables.  One  of  these  variables  is 
the  ability  of  the  radios  to  send  a  signal  of  sufficient 
strength  so  that  it  is  greater  than  the  sguelch  threshhold 
of  the  distant  receiver.  This  is  a  function  of  radio 
line-of-sight ,  polarity  of  the  antennas,  power  output  of  the 
radios,  and  many  other  factors.  In  the  present 
implementation  of  communications,  this  capability  is  modeled 
as  a  uniform  random  draw  against  an  integer  variable  between 
0  and  3.  An  ability  of  0  means  the  communication  is 
feasible.  An  ability  of  1  means  the  communication  is 
marginal  and  requires  two  complete  transmissions  to  get  the 
message  through.  The  effect  of  this  is  to  tie  up  the  net  for 
twice  as  long  as  if  the  ability  had  been  0.  An  ability  of  2 
means  the  distant  station  does  not  answer.  An  ability  of  3 
means  that  successful  jamming  was  encountered  and  a 
frequency  change  is  scheduled  prior  to  attempting  to  send 
the  message  again.  Once  the  ability  is  determined  by  routine 
TECH. CO MM3,  there  is  another  factor  which  must  be  considered 
when  the  message  is  actually  being  transmitted,  the  ability 
of  the  enemy  to  selectively  detect  and  jam  the 
communications.  In  the  current  version  of  the 
communications  model,  this  ability  is  modeled  as  a  uniform 
distribution  with  a  1/4  probability  of  jamming  the 
transmission  and  a  3/4  probability  of  no  jamming.  In  the 
final  version  of  the  communications  model  the  distribution 
of  the  jamming  will  be  a  user  input  which  can  be  any 
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suitably  defined  distribution  function.  In  addition,  it  is 
anticipated  that  a  module  will  be  used  to  calculate  the 
transmission  loss  using  the  STAR  LOS  (line  of  sight) 
routine,  the  power  and  transmission  characteristics  of  the 
radios,  and  the  data  on  the  antennas.  This  transmission  loss 
will  be  translated  into  a  0,  1,  2,  or  3  to  give  a  clear,  a 
partial,  a  blocked  or  a  jammed  transmission  respectively. 

The  ABORT. MSG  routine  is  currently  used  to  drop  old 
messages  from  the  lists  of  those  waiting  to  be  sent.  In 
subsequent  revisions  of  this  logic,  it  is  anticipated  that 
an  alternate  method  of  delivery  for  these  messages  will  be 
developed,  and  they  will  be  sent  by  this  alternate  means  if 
they  get  to  be  a  certain  age.  Currently,  they  are  simply 
destroyed  if  they  reach  the  designated  age  without  being 
transmitted.  The  age  at  which  the  destruction  is  invoked  is 
a  user  imput. 

The  user  has  two  important  parameters  at  his  disposal  to 
assist  him  in  debugging  any  problems  in  the  communications 
code  or  the  input  data.  The  first  of  these,  COM. PRINT, 
determines  which  of  the  builtin  messages  are  printed  out  by 
the  program  during  execution.  There  are  several  levels  for 
this  parameter.  It  is  tested  for  being  greater  than  10,  15, 
20,  and  25  at  various  points  in  the  logic.  The  larger  the 
value  of  this  parameter  used,  the  more  detailed  will  be  the 
printout  of  data  during  the  execution.  The  second  parameter, 
COM .DATA. DUMP ,  determines  the  amount  of  simulated  time  which 
is  allowed  to  pass  before  a  dump  of  the  attributes  of  the 
company , battalion,  brigade,  and  division  commanders  is 
executed.  This  attribute  dump  enables  the  user  to  check  to 
be  sure  that  the  correct  weights  are  being  used  for  the 
units  and  that  the  request  and  permission  attributes  of  the 
commanders  are  being  properly  set  by  the  program.  Both  of 
these  parameters  are  read  in  from  cards  at  the  beginning  of 
the  STAR  BIG. MAIN  routine. 


VIII.  COMMUNICATIONS  HOPPLE  INPOT  REQUIREMENTS 


The  input  requirements  for  the  communications  module 
fall  into  several  categories  based  upon  which  module  reads 
them  in  and  uses  them.  The  folowing  descriptions  are  given 
in  the  same  order  as  they  occur  whan  executing  the  model  and 
are  broken  down  into  sections  by  routine.  All  read 
statements  use  the  free  form  read  with  at  least  one  blank 
separating  variables. 


BIG. MAIN 


A.  Read  COM. PRINT 
COM.?RINT 

This  integer  variable  determines  the  level  of  detail 
which  is  printed  out  during  execution  of  the  model. 
When  set  to  zero,  all  of  the  print  statements  are 
turned  off.  The  major  break  points  in  the  printout 
decision  logic  are  set  at  10.  15,  20,  and  25.  Any 
COM. PRINT  value  larger  than  these  levels  causes  all 
those  levels  below  it  to  be  turned  on. 


B.  Read  COM .  DATA .  DOMP 
COM. DATA. DOMP 

This  reaj.  variable  determines  how  often  the  values  of 
the  attributes  of  the  unit  commanders  are  printed  out. 
For  example,  if  read  in  as  600.0.  approximately  every 
600  seconds  of  simulation  time  the  attributes  will  be 
printed. 


BUILDNETS 


A.  Read  NONETS, NORELAY 
NONETS 

This  integer  variable  specifies  the  total  number  of  FM 
nets  which  are  to  be  simulated. 

NO  RE  LAY 

This  integer  variable  specifies  the  total  number  of 
relays  to  be  simulated. 

B.  Read  NFMN,  NRSUB,  NALTFR 
NFMN 

This  integer  variable  specifies  the  number  designator 
of  the  ith  radio  net. 

NRSUB 

This  integer  variable  specifies  the  number  of  alternate 
frequencies  assigned  to  the  ith  radio  net. 

NALTFR 

This  integer  variable  specifies  the  number  of  alternate 
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freqaenci.es  assigned  to  the  ith  radio  net. 

C.  Read  NICK  and  NPHI 
NTCK 

This  integer  variable  is  a  check  to  insure  that  the 
correct  frequency  is  assigned  to  each  net.  It  must  be 
the  same  as  NFMN  from  B.  above  to  avoid  an  error. 

NPHI 

This  integer  variable  is  the  primary  frequency  assigned 
to  the  ith  net. 

D.  Read  TKHOLD 
TKHOLD 

This  integer  variable  is  the  number  designator  of  the 
UNIT/TANK  which  belongs  to  the  SUBSCRIBER  created  in 
this  loop.  This  SUBSCRIBER  will  be  a  node  in  the  net 
designated  by  NTCK  and  NFMN.  All  the  SUBSCRIBER  number 
designators  are  read  in  and  the  SUBSCRIBERS  filed  in 
the  net  before  going  on  to  read  statement  E. 

E.  Read  NETNO 
NETNO 

This  integer  variable  must  equal  NFM N  to  avoid  an 
error. 

F.  Read  TKALT 
TKALT 

This  integer  variable  has  the  alternate  frequencies  of 
net  NFMN  read  into  it  one  at  a  time.  All  these 
alternate  frequencies  are  read  and  stored  in  the  ragged 
array  FM. PUSHES  in  a  loop  prior  to  going  to  the  next 
read  statement  B. 


COMMGEAR 


A.  Read  NRADIO. TANKS 
NRADIO.  TANKS 

This  integer  variable  specifies  the  number  of  tanks  in 
the  simulation  which  will  have  radio  equipment. 

B.  Read  TKNO,  NORAD 
TKNO 

This  integer  variable  specifies  the  number  designator 
of  the  TANK/UNIT  which  will  have  communications 
equipment. 

NORAD 

This  integer  variable  specifies  the  number  of  sets  of 
radio  equipment  (RT. CONFIG' s)  the  TANK/UNIT  will  have. 

C.  Read  RAD. TYPE (RT. CONFIG)  and  MODE . OPERATION  (RT. CONFIG) 
RAD. TYPE (RT. CONFIG) 

This  integer  attribute  of  RT. CONFIG  specifies  the  type 
of  radio  in  use.  At  present  these  are  dummy  types  and 
have  no  real  significance. 

MODE. OPERATION (RT. CONFIG) 

This  integer  attribute  of  RT.  CONFIG  specifies  the  mode 
of  operation  of  the  radio.  At  present  these  are  dummy 
modes  and  have  no  real  significance. 

D.  Read  ANT. TYPE (RT. CONFIG) 

ANT. TYPE (RT. CONFIG) 

This  integer  attribute  of  RT.  CONFIG  specifies  the  type 
of  antenna  being  used  for  this  radio  set.  If  this 
number  is  less  than  zero,  the  antenna  is  directional. 
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and  since  there  are  no  provisions  for  this  type  in  the 
rest  of  the  program  at  this  time,  this  causes  the 
program  to  print  a  message  concerning  directional 
antennas  and  stop. 

E.  Read  REM. ANT  (RT. CONFIG) 

REM.ANT/RT.CONPIG) 

This  integer  attribute  of  RT. CONFIG  specifies  whether 
or  not  the  antenna  is  remote!  from  the  radio.  If  the 
value  is  not  zero,  the  antenna  is  remoted,  and  since 
there  is  no  provision  for  this  in  the  rest  of  the 
program,  it  causes  the  program  to  print  a  message 
concerning  remoted  antennas  and  stop. 


INITIALIZE 


A.  Read  PAROO,  PAR01,  ...  PARxx 
PASxx 

These  are  integer  parameters  used  for  generating  random 
numbers  using  the  SIMSCRIPT  random  number  calls.  The 
value  of  xx  should  not  exceed  49,  and  each  should  be 
different. 

B.  Read  PAR50 ,  PARS  1 ,  ...  PARyy 
PARyy 

These  are  real  parameters  which  are  used  for  random 
number  generation.  The  yy  value  should  be  larger  than 
49,  and  each  yy  must  be  unique. 

C.  Read  CO.LO.BD  and  CO.UP.BD 
CO.LO.BD 

This  integer  variable  is  the  lower 
destination  code  for  messages  being  sent 
level. 

CO.UP.BD 

This  integer  variable  is  the  upper 
destination  code  for  messages  being  sent 
level. 

D.  Read  BN.LO.BD  and  BN.UP.BD 
BN.LO.BD 

This  integer  variable  is  the  lower 

destination  coda  for  messages  being 
battalion  level. 

BN.U?.BD 

This  integer  variable  is  the  upper 

destination  code  for  messages  being 
battalion  level. 

E.  Read  BDE.LO.BD  and  BDE.UP.BD 
BDE. 10. BD 

This  integer  variable  is  the  lower 

destination  code  for  messages  being  sent 
level. 

BDE.UP.BD 

This  integer  variable  is  the  upper 

destination  code  for  messages  being  sent 
leveL. 

F.  Read  DI7.L0.BD  and  DIV.UP.BD 
DIV.LO.BD  This  integer  variable  is  the  lower  bound  of  the 

destination  code  for  messages  being  sent  to  the 
division  level. 

DI7.  UP.  BD 
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IX.  FUTURE  MODEL  ENB  ANCEMENETS 

The  model  of  communications  described  in  this  document 
represents  a  good  foundation  for  developing  those  additional 
communications-related  modules  required  to  enhance  the 
realism  of  the  STAR  Model.  The  structure  of  this  model  is 
sufficiently  flexible  to  handle  most  of  the  communications 
requirements  envisioned  for  inclusion  in  STAR. 

Obviously,  there  is  still  much  to  be  done.  A  few  of  the 
more  important  areas  for  future  work  are  identified  in  this 
chapter. 

Enhancement  of  the  red  interception  and  jamming 
capability  module  initially  developed  by  Cpt.  Haislip  is 
high  on  the  list  of  significant  actions  which  will  have  a 
marked  effect  on  the  realism  of  the  current  model  since  it 
incorporates  a  call  to  a  jamming  routine  for  which  the  user 
supplies  parameters. 

In  addition  to  the  red  electronic  warfare  capabilities, 
the  blue  force  EW  assets  and  doctrine  must  be  evaluated  and 
modeled  to  provide  a  balanced  picture  of  the  impact  of  EM  on 
the  model. 

The  play  of  relays  for  the  FM  nets,  radio  wire 
integration,  radio  teletype  HF  nets,  and  directional 
antennas  should  be  considered  for  inclusion  in  the  model.  It 
may  be  that  some  of  these  do  not  provide  sufficient  gains  in 
realism  to  justify  their  being  included,  but  they  should  be 
studied . 

Since  the  STAR  model  is  headed  for  the  goal  of  modeling 
a  blue  brigade  under  attack  by  a  red  division,  the 
multichannel  radio  nets  within  the  brigade  boundary  and 
those  going  back  to  the  corps  level  need  to  be  studied  and 
considered  for  inclusion  in  the  model.  These  nets  represent 
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a  large  proportion  of  the  communications  assets  in  the 
brigade  area  and  should  be  included  in  the  aodel  in  some 
aanner.  Additionally,  as  more  and  more  of  the  logistics  and 
support  functions  are  included  in  the  model,  the  need  to 
model  communications  to  entities  other  than  the  unit 
commanders  will  increase.  This  means  modeling  at  least  part 
of  the  communications  network  down  to  the  individual 
instrument  or  line  where  these  support  people  are  located. 

Finally,  the  whole  area  of  Command,  Control, 
Communications,  and  Intelligence  needs  to  be  integrated  in 
some  way  with  the  tactical  decision  logic  in  order  to  take 
advantage  of  the  information  which  can  be  gained  from  the 
intelligence  network. 
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APPENDIX  A 

STAR  ROUTINES,  EVENTS,  AND  ARRAYS 


The  following  routines,  events,  and  arrays  are  key 
elements  in  the  existing  STAR  movement  decision  logic. 


ROUTINES 


Action 

This  routine  calls  the  movement  decision  routine  and 
takes  action  based  on  the  value  of  the  order  returned 
to  initiate  movement  of  units  m  conjunction  with  the 
leave  logic. 


Bn.  go 

This  routine  initiates  movement  of  a  blue  battalion 
from  its  current  position. 

Bug .chk 

This  routine  checks  to  see  if  a  unit  should  move  as  a 
result  of  being  too  close  to  an  enemy  unit  and  calls 
the  movement  decision  routine  if  required. 

Co.  go 

This  routine  initiates  movement  of  a  blue  company  from 
its  current  position. 

Decision 

This  routine  is  called  by  routine  ACTION  or  routine 
BUG.IHK.  It  updates  the  values  of  CREQST,  BREQST. 
BNCUR .  and  BDECUR  and  checks  the  attributes  of  a  unit 
and  tne  values  stored  in  the  arrays  TABLE,  BNCORD,  and 
COCORD  to  determine  if  the  unit  is  allowed  to  perform  a 
desired  movement.  It  causes  units  to  move  if  the  BNCUR 
or  BDECUR  values  exceed  the  LO  or  GO  bounds  for  the 
battalion  or  the  brigade. 


EVENTS 


Phaz. chk 

This  event  determines  whether  the  current  phase  line  is 
still  occupied.  If  it  is  still  occupied,  the  event 
reschedules  itself.  If  it  isn’t  occupied,  the  event 
removes  the  battalion  commander  from  tne  BRIGADE  (set) 
and  calls  routine  COORD. SET. 

Re. mv. state 

This  event  checks  to  see  if  units  have  arrived  at  their 
new  locations. 
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ARRAYS 


A  diagram  of  the  organization  of  this  array  is  provided 
in  Figure  10.  This  three  dimensional  array  has  a  plane 
for  each  blue  maneuver  unit  and  seven  rows  for  each 
plane.  The  first  six  rows  correspond  to  monitored 
weapons  systems  for  the  unit  and  the  seventh 
corresponds  to  the  unit  as  a  whole.  Each  weapon  system 
row  has  4  plus  3*NPRI  columns  where  NPRI  is  the  number 
of  attrition  level  actions  planned  for  that  system. 
Column  1  contains  the  system  code  in  the  first  6  rows 
and  the  boundary  range  in  the  seventh  pow.  If  no  enemy 
units  are  within  this  range,  the  unit  will  not  move  off 
its  position  unless  ordered  to  do  so.  Column  2  contains 
the  weapon  code  in  the  first  six  rows  and  the  range 
within  which  all  enemy  units  are  used  for  computing  the 
force  ratio  in  the  seventh  row.  Column  3  contains  the 
closing  range  within  which  an  enemy  firing  at  a  system 
causes  it  to  request  permission  to  move  off  its 
position.  Column  4  contains  the  code  for  whether  a 
system  or  unit  is  restricted  from  moving  or  is  free  to 
move  at  will.  The  remaining  columns  are  in  groups  of  3 
with  the  first  being  an  attrition  level,  the  second 
being  th$  force  ratio,  and  the  third  being  the  code  for 
the  action  to  be  taxen  if  that  attrition  level  and 
force  ratio  are  exceeded. 

Bncord 

A  diagram  of  the  organization  of  this  array  is  provided 
in  Figure  11.  This  three  dimensional  array  has  a  plane 
for  each  blue  battalion,  a  row  for  each  phase  line,  and 
five  columns.  The  first  column  contains  BHSN,  the  code 
for  whether  or  not  the  battalion  has  permission  to  move 
off  this  coordination  line.  The  second  column  contains 
BNCUR,  the  sum  of  the  weights  of  the  companies  which 
have  requested  permission  to  move  off  their  current 
coordination  lines.  The  third  column  contains  BNWT,  the 
tactical  weight  of  the  battalion  on  this  coordination 
line.  The  fourth  column  contains  BNLO,  a  lower  bound 
which  if  exceeded  by  BNCUR  causes  the  battalion  to  give 
all  the  companies  permission  to  move.  The  fifth  column 
contains  BNGO,  a  lower  bound  which  if  exceeded  by  BNCUR 
causes  the  Battalion  to  order  all  companies  to  move. 

Cocord 

A  diagram  of  this  array  is  provided  m  Figure  12.  This 
three  dimensional  array  has  a  plane  for  each  blue 
company  unit,  a  row  for  each  coordination  line,  and  two 
columns.  The  first  column  contains  CWSN,  the  code  for 
whether  or  not  the  company  has  permission  to  move  off 
its  current  coordination  line.  The  second  column 
contains  CQWT,  the  tactical  weight  of  the  company  on 
this  coordination  line. 
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TABLE  DIAGRAM 


A  plane  for  each  blue  maneuver  unit 

A  column  in  each  plane  for  each  of  the  above  weapon  system  attributes 
A  row  in  each  plane  for  each  of  up  to  seven  weapon  systems 


FIGURE  10 


BN CORD  DIAGRAM 


A  plane  for  each  battalion 

A  row  in  each  plane  for  each  phase  line 

A  column  in  each  plane  for  each  of  the  five  attributes 


FIGURE  11 
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APPENDIX  B 

COH NON ICAr IONS  ROUTINES  AND  EVENTS 

The  communications  model  uses  the  following  routines  and 
events  to  model  the  transmission  of  messages  between  the 
decision  levels.  The  decision  process  is  based  upon  the 
information  contained  in  the  messages  and  their  texts. 


ROUTINES 


Abort,  msg  (tank,  msg) 

This  routine  destroys  a  message  if  it  gets  too  old. 

Bde .msg 

This  routine  is  called  by  event  END. XSMN  whenver  a 
brigade- level  message  is  encountered.  This  routine  in 
turn  calls  the  appropriate  logic  routine  to  handle  the 
message  based  on  the  message  type. 

Bn. msg 

This  routine  is  called  by  event  END. XSMN  whenever  a 
battalion-level  message  is  encountered.  This  routine  in 
turn  calls  the  appropriate  logic  routine  to  handle  the 
message  based  on  the  message  type. 

Bnettbl 

This  routine  is  called  by  routine  COM. MAIN  during 
initialization  of  the  program.  It  builds  two 
two-dimensional  tables  or  ragged  arrays.  The  first, 
NETTBL,  stores  the  subscripts  of  the  subscribers  of  the 
Ith  radio  net  in  row  I  of  the  array.  The  second, 
RPOINT,  stores  in  its  Ith  row  the  address  pointers  of 
the  subscribers  in  the  Ith  radio  net. 


Buildnets 

This  routine  is  called  by  routine  COM. MAIN  during 
initialization  of  the  program.  It  reads  in  the  number 
of  radio  nets,  the  number  of  relays,  the  subscribers  in 
each  net,  and  the  alternate  frequencies  for  each  net. 
It  creates  the  PMNETS  and  files  them  in  the  ETHER  and 
also  creates  the  SUBSCRIBER'S  and  files  them  in  the 
CEOI. LIST  of  the  FMNET  to  which  they  belong. 


Checknets 

This  routine  is  called  by  routine  COM. MAIN  during 
initialization  of  the  program.  It  cycles  through  each 
FMNET  and  prints  the  number  of  the  net,  the  primary 
frequency  of  the  net.  the  number  of  alternate 
frequencies,  the  alternate  frequencies,  and  the  number 
of  SUBSCRIBER'S  in  the  net.  This  is  primarily  a  data 
debugging  facility. 


Co. msg 
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This  routine  is  called  by  event  END.XSMN  whenever  a 
company- level  message  is  encountered.  This  routine  in 
turn  calls  the  appropriate  logic  routine  to  handle  the 
message  based  on  the  message  type. 

Com. main 

This  routine  calls  the  routines  which  initialize  the 
communications  portion  of  the  Drogram.  It  then 
schedules  the  DUMP. MAILBAG  and  MSGl GEN  (FMNET)  events 
and  returns  control  to  the  SIMSCRIPT  II. 5  scheduler. 


Commcheck 

This  routine  is  called  by  routine  COM. MAIN  during 
initialization  of  the  program.  It  cycles  through  every 
TANK  in  BLUE. ALIVE  ana  prints  out  the  communications 
gear  which  has  been  assigned  to  each  TANK,  the  location 
of  each  TANK,  the  mode  of  operation  of  each  radio,  and 
the  type  of  antenna  used  by  each  radio.  This  is 
primarily  a  data  debugging  facility. 


Commgear 

This  routine  is  called  by  routine  COM. MAIN  during 
initialization  of  the  program.  It  reads  the  number  of 
each  TANK  which  is  to  have  communications  capability 
and  the  number  of  radios  each  TANK  is  to  have.  It  then 
creates  a  MYSET  for  that  TANK  which  is  a  set  containing 

?ointers  to  all  the  RT. CONFIG' s  (radios)  owned  by  that 
ANK.  It  creates  the  required  number  of  RT.CONFIG's  for 
that  TANK  and  files  them  in  RAD. LIST  of  MYSET.  It  reads 
the  radio  type,  the  mode  of  operation  of  the  radio,  and 
the  antenna  type  used  by  the  radio  and  sets  these 
attributes  of  each  of  the  RT.CONFIG's  created.  After 
creating  all  of  the  radios,  the  routine  sets  the  next 
message  number  of  each  tank  to  nOOl,  where  n  is  the 
number  of  the  TANK.  It  then  places  the  equipment  in 
the  appropriate  net,  and  prints  out  a  matrix  of  the 
TANK  subscript  and  the  address  pointers  for  the  TANK, 
the  MYSET,  the  RT. CONFIG,  and  the  SUBSCRIBER  f<?r  ea<?h 
TANK  m  each  FM  net  in  the  ETHER.  This  listing  is 
primarily  a  debugging  facility. 


Dec.bde 

This  routine  handles  the  movement  decision  at  the 
brigade  level.  It  checks  to  see  if  a  battalion  should 
move  or  be  given  permission  to  move  and  if  so,  it 
causes  the  appropriate  message  to  be  generated  and 
schedules  the  SOMMO. ATTEMPT  to  the  battalion. 


Dec. bn 

This  routine  handles  the  movement  decision  at  the 
battalion  level.  It  causes  messages  to  be  generated 
and  schedules  COMMO. ATTEMPT' s  to  both  the  company  level 
and  the  brigade  level. 

Dec .co 

This  routine  initiates  movement  of  the  company  from  its 
current  position  by  calling  the  CO. GO  routine  if 
authorized  by  the  text  of  the  message. 

Dec . div 

This  routine  handles  the  movement  decision  logic  at  the 
division  level.  It  causes  messages  to  be  generated  and 
schedules  COMMO. ATTEMPT' s  to  the  brigade  level. 

Dec  is  ion  (cow  ,cgl,  t) 

This  routine  does  the  preliminary  checks  to  determine 
if  a  company  needs  permission  to  move  and  if  so,  it 
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causes  a  message  to  be  generated  and  schedules  a 
COMMD. ATTEMPT  to  the  battalion.  If  permission  is  not 
required,  it  causes  the  unit  to  begin  movement. 

Oiv . msg 

This  routine  is  called  by  the  END. XSMN  event  whenever  a 
division-level  message  is  encountered.  This  routine 
then  calls  the  appropriate  logic  routine  to  handle  the 
message  based  on  the  message  type. 

Ew .  routine 

This  routine  is  called  by  the  COMMO. ATTEMPT  event 
whenever  a  massacre  is  being  placed  on  the  net  to 
determine  if  the  message  will  be  jammed.  If  the  message 
is  jammed,  event  CHANGE. FREQ  is  scheduled  and  executed 
prior  to  allowing  another  attempt  to  send  the  message. 

Exit (order, t,crit,p.z.time, flag) 

This  routine  is  used  as  an  escape  from  the  decision 
process  if  permission  is  not  required  for  a  company  to 
move  from  its  current  position. 

Gen. move. decision. msg (pharow , order , t , crit ,p. z . time)  yielding 
msg 

This  routine  produces  the  movement  request  and  order 
messages,  assigns  values  to  the  message  text  variables, 
and  passes  a  pointer  to  the  message  back  to  the  calling 
routine. 

Initialize 

This  routine  is  called  by  routine  COM. MAIN  during  the 
initialization  of  the  communications  portion  of  the 
program.  This  routine  reads  the  parameters  for  the 
distributions  used  in  scheduling  the  communications 
events.  It  also  calls  routines  SSTAT.DUMP  and 
STAT.  DUMP. 

Siaze.net  (callnet) 

Upon  termination  of  a  message  on  any  of  the  FMNET's, 
this  routine  checks  that  FMNET  to  see  if  there  are  any 
messages  which  have  been  saved  and  need  to  be 
transmitted  over  it.  If  so,  it  selects  one  at  random 
and  schedules  the  COMMO. ATTEMPT  for  that  message. 

Sstat.dump. 

This  routine  is  called  by  routine  INITIALIZE  during  the 
initialization  of  the  program.  This  routine  prints  out 
the  values  of  the  attributes  of  the  brigade,  battalion, 
and  company  commanders  which  are  used  for  irovement 
coordination. 

Sta t. dump 

This  routine  is  called  by  routine  INITIALIZE  during  the 
initialization  of  the  program  and  by  routine  §NAP.R  if 
the  program  should  rail.  This  routine  lists  the 
attributes  of  each  company  commander,  battalion 
commander,  brigade  commander,  and  division  commander. 

Tech. commo (callrt,recrt)  yielding  ability 

This  routine  is  used  to  determine  how  good 
communication  is  between  the  origin  and  destination 
stations  attempting  to  pass  and  receive  each  message.  A 
message  can  be  one  of  four  types:  1)  normal 
transmission,  2)  marginal  transmission  (It  takes  twice 
as  long  as  a  normal  transmission.),  3)  no  response  (The 
distant  station  does  not  answer.),  and  4)  jammed 
transmission  (The  sender  experiences  jamming  as  soon  as 
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immediately  schedules  a 


he  enter s  the  net  and 

CHANGE.  FHEQ  as  a  result.). 

Xy. antenna (rt .config)  yielding  xt,  yt,  and  zt 

This  routine  determines  the  x,  y,  and  z  coordinate 
locations  of  remoted  antenpa?.  It  is  called  by 
routine  COMMGEAR  during  the  initialization  phase  of  the 
program. 


EVENTS 


Change. freg {callrt, call net ,  msg) 

This  event  is  called  when  the  attempted  transmission  is 
jammed.  It  "changes"  the  tranmitting  frequency  of  the 
net.  In  fact,  the  frequency  isn't  changed  since  there 
is  no  memory  property  for  the  jamming  routine  and  each 
test  to  see  if  a  MESSAGE  is  jammed  is  an  independent 
trial.  The  frequency  could  be  changed  by  a  quite  simple 
algorithm,  bur  since  this  isn't  required,  another 
COMMO.  ATTEMPT  is  scheduled  after  a  suitable  wait 
representing  the  time  required  to  change  the  frequency. 

Coamo. attempt  (orig,msg) 

This  event  simulates  the  process  of  acquiring 
communications  with  a  distant  station.  It  checks  to 
insure  that  both  UNIT's/TANK's  have  radios,  that  they 
are  both  on  the  same  net.  that  communication  is 
technically  feasible.  that  the  net  is  not  busy,  and 
that  the  distant  station  responds  to  the  call.  It  files 
the  MESSAGE  in  a  MAILBAG  if  it  can't  be  transmitted  and 
schedules  another  COMMO. ATTEMPT  at  a  later  time.  It 
also  sets  the  busy-state  of  the  FMNET  to  busy. 

Dumo. mailbag 

This  event  checks  every  station  in  every  net  for 
messages  waiting  to  be  transmitted  which  have  a 
LST. SEND. TIME  attribute  less  than  simulation  time.  When 
it  finds  a  MESSAGE  which  satisfies  this  condition,  it 
removes  the  MESSAGE  from  the  MAILBAG  of  those  waiting 
for  transmission  and  calls  ABORT. MSG  which  destroys  the 
MESSAGE. 


End .xsmn (callrt , recrt.callnet , msg) 

This  event  is  scheduled  when  the  COMMO. ATTEMPT  for  each 
MESSAGE  occurs.  It  is  the  current  simulated  time  plus 
the  length  of  the  MESSAGE.  When  this  event  occurs,  the 
MESSAGE  content  is  examined  and  based  upon  the 
destination  code,  one  of  the  DEC.  routines  is  called  to 
handle  the  decision  process.  This  event  also  sets  the 
busy-state  of  the  FMNET  to  idle. 

Msg. gen  (fmnet) 

This  event  generates  "background  noise"  messages  on  the 
nets  to  simulate  the  other  traffic  with  which  the 
movement  decision  messages  have  to  compete  for  time  on 
the  net. 


No.  contact (callrt, callnet, msg) 

This  event  simulates  a  lack  of  response  by  the  distant 
station  by  setting  the  busy-state  of  the  net  to  idle  so 
that  other  messages  can  be  passed.  It  also  files  the 
MESSAGE  in  a  MAILBAG  for  future  transmission . 
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APPENDIX  C 

COMMUNICATIONS  GLOBAL  VARIABLES 


INTEGER  VARIABLES 


Addr. store 

This  is  a  temporary  storage  location  for  the  address  to 
which  a  MESSAGE  will  be  sent.  It  is  used  to  pass  the 
address  to  the  message  generation  routine  rather  than 
increase  the  number  of  parameters  explicitly  passed  to 
the  routine. 

Adr see 

This  is  a  temporary  location  used  in  the  decision  logic 
to  store  the  addressee  of  an  incoming  MESSAGE.  It  is 
loaded  by  the  END.XSHN  event  just  prior  to  the 
destruction  of  the  MESSAGE. 

Bbde 

This  variable  is  one  that  was  added  to  those  used  in 
the  basic  STAR  model.  It  contains  the  value  read  in  for 
the  number  of  blue  brigades  to  be  played. 

Bde . lo. bd 

This  is  an  input  parameter  set  by  the  user  as  the  lower 
bound  of  the  DEST -CODE  of  a  MESSAGE  that  will  be  sent 
to  the  brigade. 

Bde. up. bd 

This  is  an  input  parameter  set  by  the  user  as  the  upper 
bound  of  the  DEST. CODE  of  a  MESSAGE  which  will  be  sent 
to  the  brigade. 

Bn. lo. bd 

Same  as  BDE. LO. BD  but  for  the  battalion  level. 

Bn . up . bd 

Same  as  BDE . UP. BD  but  for  the  battalion  level. 

Co. lo. bd 

Same  as  BDE. LO. BD  but  for  the  company  level. 

Co. up . bd 

Same  as  BDE.UP.BD  but  for  the  company  level. 

Com . print 

This  input  parameter  determines  what  information  is 
printed  during  an  execution  of  the  model.  The  larger 
COM. PRINT  is,  the  more  detailed  the  printout  becomes. 
When  set  to  zero,  the  execution  printout  is  minimized. 
Current  break  points  for  increasing  the  printed  output 
are  set  at  10,15,20,  and  25.  Any  value  larger  than  any 
of  these  will  cause  that  level  of  print  to  be 
activated. 

Dest 

This  is  a  temporary  location  used  to  store  and  test  the 
destination  level  of  a  MESSAGE.  The  value  is  set  in 
event  END.XSKN  just  prior  to  destruction  of  the 


MESSAGE.  Subsequent  to  the  MESSAGE'S  destruction,  DEST 
is  tested  to  determine  which  command  level  must  take 
action  on  the  MESSAGE. 

Div . lo. bd 

Same  as  BDE. LO. BD  but  for  the  division  level. 

Div.up.bd 

Same  as  BDE.UP.BD  but  for  the  division  level. 

Dvn 

This  variable  was  added  to  those  in  use  by  the  STAR 
model.  The  number  of  divisions  to  be  simulated  is  read 
into  it  during  initialization  of  the  model. 

Flag 

This  is  a  temporary  storage  location  used  by  the  print 
routines.  It  contains  an  integer  value  which  uniquely 
identifies  the  exit  which  was  taken  from  the  movement 
decision  logic.  It  is  used  primarily  as  an  aid  to 
debugging. 

Msg 

This  is  the  core  location  of  the  current  MESSAGE.  It  is 
a  pointer  which  uniquely  identifies  the  MESSAGE. 

Msgno 

This  is  a  temporary  storage  location  for  the  number 
which  is  used  to  distinguish  one  message  between  two 
entities  from  another.  This  variable  is  set  by  the 
END.XSMN  event  lust  prior  to  destruction  of  the 
MESSAGE. 

Orig 

This  is  a  temporary  storage  location  for  the  pointer  to 
the  originating  UNIT  of  a  MESSAGE.  It  is  set  in  routine 
end.xsmn  just  prior  to  destruction  of  the  message. 

Par  xx 

These  are  input  parameters  which  are  used  in  the  calls 
to  various  distributions  for  the  purpose  of  generating 
random  numbers  which  are  used  to  schedule  events.  In 
general,  if  xx  is  between  00  and  49,  this  should  be  an 
integer  number. 

Text. pointer 

This  variable  is  a  temporary  location  used  to  store  the 
pointer  to  the  TEXT  which  is  associated  with  a 
particular  MESSAGE.  It  is  set  in  routine  END.XSMN  just 
prior  to  destruction  of  the  MESSAGE. 

Type 

This  is  a  temporary  location  used  to  store  the  value  of 
the  massage  type.  The  value  is  set  in  routine  END.XSMN 
just  prior  to  destruction  of  the  MESSAGE,  and  it  is 
tested  in  the  BN. MSG,  BDE. MSG.  CO. MSG,  and  DIV. MSG 
routines  after  destruction  of  the  MESSAGE  to  determine 
which  of  the  logic  routines  to  call  to  handle  the 
MESSAGE. 


REAL  VARIABLES 


Chk .time 

This  is  a  variable  used  to  store  the  value  returned 


from  the  Fortran  function  MYTIME  in  event  END.XSMN.  The 
MYTIME  routine  returns  the  number  of  ten  thgusandths  of 
a  second  left  before  the  program  uses  up  its  allotted 
CPU  time.  This  number  is  divided  by  10000  and  truncated 
before  being  stored  in  CHK.TIME.  If  the  value  stored  in 
CHK.TIME  is  less  than  10,  a  STOP. SIMULATION  is 
scheduled  immediately  so  that  the  data  up  to  that  point 
will  be  printed  out  and  not  lost  as  it  would  be  if  the 
job  crashed  for  exceeding  its  allocated  time. 

Com .data. dump 

This  is  an  input  parameter  which  determines  how  often 
the  SIAT.DUMP  routine  will  be  executed  to  print  out  the 
attributes  of  each  CO. COMMANDER.  BN. COMMANDER, 
BDE. COMMANDER,  and  DIV. COMMANDER.  For  example,  if 
COM. DA?A. DUMP  is  read  in  as  600.0  by  the  user, 
approximately  every  600  seconds  of  simulation  time  the 
attributes  will  be  printed  out. 

Com. time 

This  variable  is  used  to  store  the  value  of  TIME.V  each 
time  the  routine  STAT . DUMP  is  called.  It  is  used  to 
insure  that  ST AT . DUMP  is  only  called  once  every 
COM. DATA. DUMP  seconds  of  simulation  time. 


These  are  input  variables  used  as  parameters  for  the 
distributions  provided  by  the  Simscript  language  for 
scheduling  events  and  generating  random  numbers.  If  yy 
is  a  value  from  50  to  99,  the  parameter  should  be  a 
real  variable. 


This  variable  is  used  in  routine  SIEZE.NET  to  select  at 
random  the  MESSAGE  which  will  get  the  net  from  all 
those  stored  in  MAILBAGS  which  are  assigned  to  the  net. 
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APPENDIX  D 

COMMUNICATIONS  PERMANENT  ENTITIES 


BDE. COMMANDER 


Bdecur 

This  attribute  is  the  sum  o£  the  weights  of  all  the 
battalions  in  the  BRIGADE  which  have  requested 
permission  to  move  from  the  current  coordination  line, 
it  is  reset  to  zero  each  time  the  brigade  first 
occupies  a  coordination  line. 


Bdego 

This  attribute  is  a  user  input  upper  bound.  If  BDECUR 
equals  or  exceeds  this  value,  all  the  battalions  in  the 
BRIGADE  are  ordered  to  move  back  to  their  next 
coordination  line  position.  A  distinct  BDEGO  value  is 
linked  to  each  coordination  line  which  the  brigade  can 
occupy. 


Bdelo 

This  attribute  is  a  pser  input  lower  bound.  If  BDECUR 
equals  or  exceeds  this  value,  all  the  battalions  m  the 
BRIGADE  are  given  permission  to  move  at  will  back  to 
their  next  coordination  line  position.  A  distinct 
BDELO  value  is  linked  to  each  coordination  line  which 
the  brigade  can  occupy. 

Bdemsn 

This  user  .  input  attribute  is  stoped  in  the 
three-dimensional  array,  BDECORD.  It  indicates  whether 
or  not  the  brigade  has  permission  to  move  from  a  given 
coordination  line.  A  1  means  that  the  brigade  has 
permission  to  move  and  a  0  means  that  the  brigade  does 
not  have  permission  to  move. 

Bdereqst 

This  attribute  indicates  whether  or  not  a  brigade  has 
requested  permission  to  move  from  its  current 
coordination  line  poosition.  A  1  means  that  the  brigade 
has  requested  permission  and  a  0  means  that  the  brigade 
has  not  requested  permission  to  move. 


Bdawt 

This  usep  input  attribute  indicates  the  tactical  weight 
or  relative  importance  of  the  brigade's  position  on  a 
particular  coordination  line.  There  is  a  distinct 
BDEWT  value  for  each  of  the  coordination  lines  which 
the  brigade  can  occupy. 


Brde 

This  attribute  stores  the  number  designator  of  the 

brigade. 

No. bde.  unit 

This  attribute  stores  the  number  designator  of  the 

UNIT/TANK  which  is  associated  with  the  brigade 
commander. 


BN. COMMANDER 


Batt 

This  attribute  stores  the  number  designator  of  the 
battalion. 


Bnsn 

This  user  input  attribute  indicates  whether  or  not  the 
battalion  has  permission  to  withdraw  from  a  particular 
coordination  line.  This  attribute  is  stored  in  the 
three-dimensional  array,  BNCORD.  A  1  means  that  the 
battalion  has  peraission  to  move  while  a  0  means  that 
the  battalion  does  not  have  peraission  to  move. 

Bncur 

This  attribute  stores  the  sum  of  the  weights  of  the 
companies  which  have  requested  permission  to  move  from 
their  current  coordination  line  position.  It  is  reset 
to  zero  each  time  the  battalion  first  occupies  a 
coordination  line. 

Bngo 

This  user  input  attribute  is  an  upper  bound.  If  BNCUR 
equals  or  exceeds  this  value,  all  the  companies  in  the 
BATTALION  will  be  ordered  to  move  back  to  their  next 
coordination  line  position.  A  distinct  BNGO  value  is 
linked  to  each  coordination  line  which  the  battalion 
can  occupy. 

Bnlo 

This  user  input  attribute  is  a  lower  bound.  If  BNCUR 
equals  or  exceeds  this  value,  each  company  in  the 
BATTALION  is  given  permission  to  move  at  will  back  to 
its  next  coordination  line  position.  A  distinct  BNLO 
value  is  linked  to  each  coordination  line  which  the 
battalion  can  occupy. 

Bnwt 

This  user  input  attribute  indicates  the  tactical  weight 
or  relative  importance  of  the  battalion's  position  on  a 
given  coordination  line.  The?e  is  a  distinct  BNHT 
value  for  each  coordination  line  which  the  battalion 
can  occupy. 

Braqst 

This  attribute  indicates  whether  or  not  the  battalion 
has  requested  permission  to  move  from  its  current 
coordination  line  position.  A  1  means  that  the 
battalion  has  requested  permission  to  move  whil?  a  0 
means  that  the  battalion  has  not  requested  permission 
to  move. 

No. bn. unit 

This  attribute  stores  the  number  designator  of  the 
UNIT/TANK  which  is  associated  with  the  battalion 
commander. 


CO. COMMANDER 


Cmsn 


This  user  input  attribute  stored  in  the 
three-dimensional  array,  COCDRD,  indicates  whether  a 
company  has  permission  to  move  from  a  given 
coordination  line  position.  A  1  means  the  company  has 

Sermission  to  move  while  a  0  means  that  the  company 
oes  not  have  permission  to  move. 


Coapy 

This  attribute  stores  the  number  designator  of  the 
UNIT/TANK  which  is  associated  with  the  company 
commander. 


Cowt 

This  user  input  attribute  indicates  the  tactical  weight 
or  relative  importance  of  the  company's  position  on  a 
given  coordination  line,  There  is  a  distinct  COWT 
value  for  each  coordination  line  which  the  company  can 
occupy. 

ClT6 t 

This  attribute  indicates  whether  the  company  has 
requested  permission  to  move  from  its  current 
coordination  line  position.  A  1  means  that  the  company 
has  requested  permission  to  move  whi}e  a  0  means  that 
the  company  has  not  requested  permission  to  move. 


DIV. COMMANDER 


Ddi  v 

This  attribute  stores  the  number  designator  of  the 
division. 


Divcur 

This  attribute  stores  the  sum  of  the  weights  of  the 
brigades  which  have  requested  permission  to  move  from 
their  current  coordination  line  position.  It  is  reset 
to  z?ro  each  time  the  division  first  occupies  a 
coordination  line. 


Divgo 

This  attribute  is  a  user  input  upper  bound.  If  DIVCUR 
equals  or  exceeds  this  value,  all  the  brigades  in  the 
DIVISION  will  be  ordered  to  move  back  to  their  next 
coordination  line  position.  A  distinct  DIVGO  value  is 
associated  with  each  coordination  line  which  the 
division  can  occupy. 


Divio 

This  user  input  attribute  is  a  lower  bound.  If  DIVCUR 
equals  or  exceeds  this  value,  each  brigade  th  the 
DIVISION  is  given  permission  to  move  at  will  back  to 
its  next  coordination  line  position.  A  distinct  DIVLO 
value  is  associated  with  each  coordination  line  which 
the  division  can  occupy. 

Divreqst 

This  attribute  .indicates  whether  the  division  has 
reguested  permission  to  move  from  its  current 
coordination  line  position.  A  1  means  that  it  has 
reguested  permission  to  move  and  a  0  means  that  it  has 
not  requested  permission  to  move. 
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Div  vt 

This  attribute  is  a  user  input  which  indicates  the 
tactical  weight  or  relative  importance  of  the 

division’s  position  on  a  given  coordination  line. 
There  is  a  distinct  DIVWT  for  each  coordination  line 
which  the  division  can  occupy. 

No. div. unit 

This  attribute  stores  the  number  designator  of  the 
ONIT/TANK  which  is  associated  with  the  division 

co mmander. 


B.MVR.CDR 

Prty 

This  attribute  is  used  to  determine  the  correct  plane 
of  the  TABLE  array  which  is  to  be  used  for  a  given  UNIT 
on  a  given  coordination  line. 

There  are  many  other  attributes  of  the  B.MVR.CDRs,  but 

this  is  the  only  one  which  has  any  importance  in  the 

communications  model.  The  rest  of  the  attributes  are  used 

for  combat  analysis  of  casualties  and  related  statistics. 
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APPENDIX  E 

CO M MONICA! 10 NS  TEMPORARY  ENTITIES 


FMNET 

Fa. idle 

This  attribute  indicates  whether  or  not  the  net  is  m 
use,  with  a  code  of  1,  or  idle,  with  a  code  of  0. 

Fmalt.freq 

This  user  input  attribute  contains  the  alternate 
frequency  of  tne  FMNET. 

Fmpri.  f  peq 

This  attribute  contains  the  user  input  primary 
frequency  of  the  FMNET. 

Ncs. point 

This  attribute  contains  a  pointer  to  the  TANK/ONIT  of 
the  net  control  station  for  the  FMNET. 

Num.net 

This  attribute  indicates  the  numeric  designator  of  this 
FMNET. 


MESSAGE 


This  attribute  stores  the  pointer  to  the  UNIT/TANK 
which  is  associated  with  the  commander  who  is  the 
addressee  of  the  message. 

D@s  t • code 

*This  attribute  stores  a  code  value  which  indicates  the 
level  to  which  the  message  is  being  sent.  For  example, 
if  the  value  of  this  variable  lies  between  the  user 
input  values  for  CO.LO.BD  and  C0.0P.BD,  the  message 
will  be  sent  to  the  company  level. 

Length. msg 

This  attribute  stores  the  length  of  the  message  m 
simulated  seconds.  It  is  used  during  event 
COMMO. ATTEMPT  to  determine  when  to  schedule  the 
END.XSMN  event. 

Lst. send. time 

This  attribute  stores  the  simulated  time,  beyond  which 
the  message  will  not  be  transmitted.  It  is  used  in  the 
DUMP. MAILBAG  event  to  determine  if  the  messaae  should 
be  aborted. 


This  attribute  stores  the  number  of  the  message  in  the 
form  nxxx  where  n  is  the  number  of  the  UNIT/TANK 
sending  the  message  and  xxx  is  a  sequential  integer 
which  starts  at  one  and  increases  one  for  each  message 
sent  by  this  UNIT/TANK. 


Msg. text 

This  attribute  stores  the  pointer  to  the  text  which  is 
created  to  go  with  this  message. 

Msg .t vp$ 

This  attribute  indicates  the  type  of  the  message.  For 
example,  a  type  30  message  is  a  request  for  permission 
to  move  from  the  battalion  to  the  brigade. 


MYSET 


Nxt .msg.no 

This  attribute  stores  the  number  designator  of  the  next 
message  which  this  particular  TANK/UNIT  will  send. 


RT. CONFIG 


ant .type 

This  attribute  contains  a  code  which  describes  the  type 
of  antenna  which  is  used  by  the  radio  configuration.  If 
the  value  is  less  than  zero,  the  antenna  is 
directional.  If  the  value  is  greater  than  zero,  the 
antenna  is  omnidirectional. 

Ant.x.loc 

This  attribute  contains  the  x  coordinate  of  the 

location  of  the  antenna  which  may  not  be  the  same  as 

the  location  of  the  TANK/UNIT  which  uses  that  antenna 
because  remote  antennas  are  allowed. 

Ant .y .loc 

This  attribute  contains  the  y  coordinate  of  the 

location  of  the  antenna. 

In.  use 

This  attribute  contains  a  code  which  is  set  to  1  to 
indicate  that  the  radio  set  is  in  use  and  is  set  to  0 
when  the  set  is  not  being  used. 

Mode,  operation 

This  attribute  contains  a  code  which  designates  the 

mode  of  operation  of  the  radio. 

Own .subscriber 

This  attribute  contains  a  pointer  to  the  subscriber 

which  owns  the  TANK/UNIT  to  which  this  RT. CONFIG 
belongs. 

Rad .type 

This  attribute  contains  a  code  which  designates  the 

type  of  radio. 

Rem .ant 

This  attribute  contains  a  code  which  tells  if  the 

antenna  for  this  RT. CONFIG  is  remoted  or  not.  Any  value 
other  than  zero  indicates  a  remoted  antenna. 


Own.net 


SUBSCRIBER 
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This  attribute  contains  a  pointer  to  the  FMNET  which  is 
used. 


Own. tank 

This  attribute  contains  a  pointer  to  the  UNIT/TANK 
associated  with  this  subscriber. 


Tfc 


This  attribute  contains  a  code  of  1  if  there  is  at 
least  one  message  filed  in  this  SUBSCRIBER'S  mailbag 
waiting  to  be  sent.  Otherwise,  the  value  of  this 
attribute  is  0. 
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APPENDIX  F 

COMMUNICATIONS  ARRAYS 


BDECORD 

The  BDECORD  array  stores  five  different  attributes 
of  the  brigades.  It  is  a  three  dimensional  array  which 
has  a  plane  for  each  blue  brigade.  Within  each  plane 
there  is  a  row  for  each  phase  line  which  the  brigade 
can  occupy  and  within  each  row  there  are  five  columns. 
One  column  for  each  of  the  five  attributes  which  will 
be  stored.  The  first  column  contains  BDEMSN r  the  code 
for  whether  or  not  the  brigade  has  permission  to  move 
off  this  coordination  line.  The  second  column  contains 


BDECUR,  which  is  the  sum  of  the  weights  of  the 
battalions  which  have  requested  permission  to  move  from 
their  coordination  line  positions.  The  third  column 
contains  BDEWT,  which  is  the  user  supplied  estimate  of 
the  tactical  importance  of  the  brigade  on  this 
coordination  line.  The  fourth  column  contains  BDELO, 
the  lower  bound  which  if  exceeded  by  BDECUR  causes  the 
brigade  to  give  all  its  battalions  permission  to  move 
from  their  current  coordination  line  positions.  The 
fifth  column  contains  BDEGO,  the  upper  bound  which  if 
exceeded  by  BDECUR  causes  the  brigade  to  order  all  its 
battalions  to  move  from  their  current  coordination  line 
positions.  This  array  is  used  to  reset  the  attributes 
of  the  brigade  commanders  after  they  first  ocgupy  a 
coordination  line  position.  The  array  itself,  with  the 
exception  of  BDEMSN  and  BDECUR  values  is  loaded  during 
the  initialization  of  the  program  using  input  data 
Supplied  by  the  user.  A  diagram  of  the  way  this  array 
is  organized  is  provided  in  Figure  13. 


BNCORD 

This  array  is  the  same  one  that  is  used  bv  the 
production  STAR  model.  It  is  explained  in  Appendix  A. 
A  diagram  of  the  organization  of  the  array  is  provided 
in  Figure  11. 


BNETTBL 

This  two  dimensional  array  is  used  by  the 
communications  routines  as  a  table  lookup  which 
contains  the  subscript  number  of  the  UNITS/TANRS  which 
belong  to  the  FMNETs.  The  subscripts  of  the  TANKS 
which  belong  to  the  ith  FMNET  are  elements  of  the  ith 
row  of  the  array.  Because  the  FMNETs  are  not 
restricted  to  all  having  the  ,  same  number  of 
SUBSCRIBERS,  .this  arfay  is  necessarily  ragged.  An 
example  of  this  array  is  provided  m  Figure  1$. 

COCORD 

This  array  is  the  same  one  that  is  used  by  the 

Eroduction  STAR  model.  It  is  explained  in  Appendix  A. 

diagram  of  the  organization  of  the  array  is  provided 
in  Figure  12. 

DIYCORD 

This  array  is  similar  to  the  BNCORD  AND  BDECORD 
arrays.  It  contains  the  same  type  of  data  but  for  the 
division  level  as  opposed  to  the  brigade  level.  A 
diagram  of  the  way  this  three  dimensional  array  is 
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BDECORD  DIAGRAM 


BDEGO 


A  plane  for  each  brigade 

A  row  in  each  plane  for  each  phase  line 

A  column  in  each  plane  for  each  of  the  five  attributes 


FIGURE  13 
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BNETTBL  DIAGRAM 
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organized  is  provided  in  Pigure  15. 

HRPOINT 

This  two  dimensional  array  is  used  primarilly  as  an 
aid  to  debugging.  It  contains  the  pointer  values  of 
the  IJNITs/TANKs  which  belong  to  the  pth  radio  net  in 
the  ith  pow  of  the  array.  This  array  is  released  after 
the  initialization  of  the  program  where  it  is  printed 
out  since  the  pointers  never  change  during  the 
simulation.  A  diagram  of  the  organization  of  this 
array  is  provided  in  Figure  16. 


TAB  LE 

This  three  dimensional  array  is  the  same  as  the  one 
used  by  the  production  version  of  STAR.  It  is 
explained  in  Appendix  A.  A  diagram  of  the  organization 
of  the  array  is  provided  in  Figure  10. 
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Division  // 


DIVCORD  DIAGRAM 


DIVGO 


DIVCUR 


DIVMSN 


A  plane  for  each  division 

A  row  in  each  plane  for  each  phase  line 

A  column  in  each  plane  for  each  of  the  five  attributes 


FIGURE  15 
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RRPOINT  DIAGRAM 


FIGURE  16 
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APPENDIX  S 
COMMUNICATIONS  SETS 


Ceoi.  list 

This  set  contains  pointers  to  all  the  SUBSCRIBERS  who 
hare  access  to  a  specific  FMNET. 

Ether 

This  set  contains  all  the  FMNET ' s  which  are  simulated 
by  the  communications  model. 

Mailbag 

This  set  contains  pointers  to  all  the  MESSAGES 
generated  by  a  given  SUBSCRIBER  for  a  given  FMNET  which 
haven't  been  sent. 

Rad. list 

This  set  contains  pointers  to  all  the  RT.CONFIGS  of  a 
given  TANK. 


Figure  2  contains  a  complete  diagram  of  all  the  sets  and 
pointers  used  by  the  communications  model. 
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APPENDIX  H 


1  ROUTINE  DECISION  (RON. COL. T) 

2 

3  * 'THIS  ROUTINE  EXAMINES  THE  STATUS  OF  THE  SECTION  OR  COMPANY  TO  WHICH 

V  "TANK  T  BELONGS  AND  DETERMINES  WHETHER  OR  NOT  MOVEMENT  IS  ALLOWEO 

S 

B  IF  COM. PRINT  GT  20  PRINT  1  LINE  WITH  TIHE.V  THUS 

7  INTO  DECISION  AT  mm—.— 

8  ALWAYS 

9  LET  ORDER-  NO 

10  IF  MVARY  (ROW, COL)  GE  >1  LET  OROER-YES 

11  IF  COM. PRINT  GT  IS 

12  PRINT  1  LINE  NITH  ROW  AND  COL  AS  FOLLOWS 

13  33333 - STATUS  OF  HVARY  (RQH-mmmmn,  COL--— —)  CAUSED  EXIT  WITH  OROER-YES 

14  SKIP  1  LINE 

15  ALWAYS 

16  GO  TO  ACT4.  ACTS.  ACTS  PER  (MVARY  (ROW. COL)  -  3) 

17  *ACT4* 

18  CALL  BN. GO  (T.SYS.WPN) 

19  GO  TO  ACT. NOW 

20  ’ACTS* 

21  CALL  OTHER. GO  (T, SYS. HPN) 

22  GO  TO  ACT. NOW 

23  •ACTB* 

24  CALL  MOUNTER  (T. STS. WPN1 

25  ’ACT.  NOW 

26  SCHEDULE  A  RE. MV. STATE  (CO (T) )  IN  SO  UNITS 

27  RETURN 

28  ELSE 

29  IF  TABLE  (PRTT  (CO  (T)l.  ROW.  41-0 

30 

31  "THE  SECTION  OR  COMPANT  IS  NOT  RESTRICTED  FROH  MOVING  AT  HILL. 

32 

33  LET  ORDER- YES  LET  FLAG-1 

34  CALL  EXIT  (ORDER, T.CR1T.P.Z. TIME, FLAG) 

35  LET  ORIG-RRRPQINT  (CO  (TJ I 

36  LET  AODR. STORE  *  ARAPOINT  (NO. BN. UNIT  (BN  (T) ) ) 

37  CALL  GEN.MOVE. DECISION. MSG  (PHAROW.ORDER.T.CRIT.P.Z. TIME)  YIELDING  MSG 

38 

39  "GENERATE  A  MESSAGE  INFORMING  THE  BATTALION  OF  THE  CO/SEC  MOVE. 

40 

41  LET  BEST. CODE (MSG)  -  BN. LEVEL 

42  IF  ROW  EQ  7  LET  MSG.TYPE  (MSG)  -  CO.T6LLS.BN.OF.CO.MOVE 

43  CALL  CO. GO  (T. STS. HPN) 

44  SCHEDULE  A  RE. MV. STATE (CO (T) )  IN  60  UNITS 

45  IF  RANGE  (CHK.RNG)  LE  TABLE  (PRTT  (CO  (T) )  .ROW,  3) 

46  PRINT  1  LINE  AS  FOLLOWS 

47  DECISION  BASED  ON  RANGE  TO  ENEMY  ♦**♦♦♦ 

48  ALHATS 

49  ELSE 

50  LET  MSG.TYPE (MSG)  -  CO.NOTIF.BN.OF.SEC.MOVE 
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1 


SI 

IF  RANGE  (CHK.RNG1  IE  TABLE  (PRTT  (CQ  (T))  .RON.  3) 

S2 

PRINT  1  LINE  AS  FOLLOWS 

S3 

♦♦♦  DECISION  BASED  ON  RANGE  TO  ENEHY  ♦*♦♦♦♦ 

54 

CALL  VEH. GO (T, TABLE  (PRTT  (CO  (T)  I  .  1 . 1 )  . TABLE  (PRTT  (CO (T)1 .  1 . 211 

SS 

CALL  CMG. STATUS  (T> 

56 

RETURN 

S7 

ELSE 

58 

LET  SYS-TABLE  (PRTT  (CO  (T) )  » ROW.  1) 

59 

LET  NPN-TABLE  (PRTT  (CO  (T) )  .ROW, 2) 

60 

CALL  CHG. STATUS  (T1 

61 

GO  TO  ACT1.  ACT2  PER  HVART (ROW. COL) 

62 

•ACT1 * 

63 

CALL  SEC.GO(T.STS.WPN) 

64 

GO  TO  ACT. LATER 

65 

•RCT2* 

66 

CALL  PLT.Gfl  (T.STS.WPN) 

67 

•ACT. LATER* 

68 

SCHEOULE  A  RE. MV. STATE  (CO  (TJ )  IN  60  UNITS 

69 

ALHATS 

70 

SCHEDULE  A  COHHO. ATTEMPT  (OR  I G.HSG)  NOW 

71 

RETURN 

72 

ELSE 

73 

IF  CREQST  (CO  (T)  1  EQ  1 

74 

75 

"THIS  COHPANT  HAS  PREVIOUSLY  REQUESTED  PERMISSION  TO  MOVE. 

78 

77 

IF  COM. PRINT  GT  IS 

78 

PRINT  1  LINE  AS  FOLLOWS 

79 

11111 - CREQST  (CO  (Til  EQ  1  CAUSED  A  RETURN 

80 

ALWAYS 

81 

RETURN 

82 

ELSE 

83 

LET  ACHK-TRUNC.F (AREA. START (T) /I00) 

84 

IF  ACHK  GT  PHAROW 

85 

86 

"DETERMINE  IF  THE  COHPANT  IS  ON  THE  SAME  PHASE  LINE  AS 

THE  REST  OF 

87 

"ITS  SISTER  UNITS.  IF  IT  IS  FARTHER  TO  THE  REAR. 

00  NOT  ALLOW 

88 

"REQUEST  TO  MOVE. 

89 

90 

IF  CON. PRINT  GT  15 

91 

PRINT  1  LINE  WITH  ACHK  AND  PHAROW  AS  FOLLOWS 

92 

22222 - STATUS  OF  ACHK-mmm  GT  PHAROW— *  CAUSED  A  RETURN 

93 

ALWAYS 

94 

RETURN 

95 

ELSE 

96 

IF  COCORO  (CO  IT)  .ACHK.  11-1 

97 

98 

"THE  COMPANY  IS  RESTRICTED  BUT  HAS  BEEN  GIVEN  PERMISSION  TO  MOVE. 

99 

100 

LET  ORDER-YES  LET  FLAG-2 
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101 

102 

109 

10« 

105 

106 

107 

108 

109 

110 
111 
112 
119 
111 
US 
116 

117 

118 

119 

120 
121 
122 
129 
129 

125 

126 

127 

128 
129 

190 

191 

192 
199 
139 

135 

136 

137 

138 

139 

190 

191 

192 

193 
199 

195 

196 

197 

198 

199 
ISO 


CALL  EXIT  (OROER.T.CfilT.P.Z.TlHE. FLAG) 

LET  0RIG-RRRP01NT  (CO  III ) 

LET  AOOR.  STORE  -  RRRPOINT  (NO.  BN. UNIT  (BN  CT1 ) ) 

CALL  GEM . M  J  VE .DECISION. MSG  (PHAROH. ORDER. T.CA1T.P.Z. TIME)  YIELDING  MSG 
•’GENERATE  A  MESSAGE  INFORMING  THE  BATTALION  OF  THE  CO/SEC  HOVE. 

LET  OEST. CODE (MSG)  -  BN. LEVEL 

IF  RON  EO  7  LET  MSG. TYPE (MSG)  ■  CO. TELLS. BN. OF. CO. HOVE 
CALL  CO. GO  (T.  SYS.  HPN) 

SCHEDULE  A  RE. NV. STATE  (CO  (T1 )  IN  60  UNITS 
IF  RANGE  (CHK.RNG)  LE  TABLE  (PRTY  (CO  (T) )  .ROM. 3) 

PRINT  1  LINE  AS  FOLLOWS 
♦♦♦  DECISION  BASED  ON  RANGE  TO  ENEMY  *♦*♦♦♦ 

ALWAYS 

ELSE 

LET  MSG. TYPE  (MSGI  •  CO.NOTIF.BN. OF. SEC. MOVE 
IF  RANGE  (CHK.RNG)  LE  TABLE  (PRTY  (CO  (T) )  .ROW. 3) 

PRINT  1  LINE  AS  FOLLOWS 
♦♦*  DECISION  BASED  ON  RANGE  TO  ENEMY  ****** 

CALL  VEH.  GO  (T.  TABLE  (PRTY  (CO  (T) ) ,  1 . 1) . TABLE  (PRTY  (CO  (T) )  .  1 . 2) ) 
CALL  CHG. STATUS  (T) 

RETURN 

ELSE 

LET  SYS-TABLE  (PRTY  (CO  (T) )  .RON,  1) 

LEY  MPN-TABLE  (PRTY  (CO  (T) ) .  ROW.  2) 

CALL  CHG. STATUS (T) 

GO  TO  BCT1 .  BCT2  PER  MVARY  (ROW, COL) 

•BCT1 ’ 

CALL  SEC. GO  (T,  SYS. HPN) 

GO  TO  BCT. LAYER 
•BCT2* 

CALL  PLT . GO  (T.  SYS,  HPN) 

•BCT. LATER’ 

SCHEDULE  A  RE. MV.  STATE  (CO  (T) )  IN  60  UNITS 
ALWAYS 

3CHE0ULE  A  COMHO. ATTEMPT (ORIG. MSG)  NOW 
RETURN 

ELSE 

LET  FLAG-3 

LET  0R1G-RRRP0INT  (CO  (T) ) 

LET  AOOR. STORE  -  RRRPOINT  (NO. BN. UNIT  (BN  (T) ) ) 

CALL  GEN. MOVE. DECISION. MSG(PHAROW.ORDER.T.CRIT.P.Z.TIME)  YIELDING  MSG 

"GENERATE  A  MESSAGE  TO  THE  BATTALION  REQUESTING  PERMISSION  TO  HOVE. 

LET  OEST. CODE  (MSG)  -  BN. LEVEL 

LET  MSG. TYPE  (MSG)  -  CO. BN. REG. PERM. TO. MOVE 

3CHE0ULE  A  COMHO. ATTEMPT (ORIG. MSG)  NOW 

RETURN 
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APPENDIX  I 


1  ROUTINE  OEC.CQ 

2  DEFINE  J  AS  AN  INTEGER  VARIABLE 

9 

4  IF  CON. PRINT  GT  20  PRINT  1  LINE  HITH  TlHE.V  THUS 

5  ENTERED  OEC.CO  ROUTINE  AT  TINE. V-mmmmm.mmm 

6  ALHATS 

7  LET  TEXT  (k)  -  TEXT. POINTER 

8  LET  PHAROH  •  TEXT(l) 

9  LET  ORDER  >  TEXT  (2) 

10  LET  T  •  TEXT  (31 

11  LET  CR1T  -  TEXT  (4) 

12  LET  P.Z.T1ME  -  TEXT  (SI 

13  LET  TEXT  (m)  -0 

14  IF  CO. CAN. NOT. HOVE 

15  LET  COCORO  (CO  (T) a  PHARON . 1 )  -  0 

16  IF  CON. PAINT  GT  15 

17  PRINT  1  LINE  HITH  CO (T)  THUS 

18  COHPANY  nm  HAS  8EEN  ORDERED  NOT  TO  HOVE 

19  ALHATS 

20  SKIP  2  LINES 

21  RETURN 

22  ELSE 

23  IF  CO. HAT. HOVE 

24  IF  CON. PRINT  GT  15 

25  PRINT  1  LINE  HITH  CO(T)  THUS 

28  COHPANT  »«  HAS  SEEN  GIVEN  PERNISSION  TO  HOVE  AT  HILL 

27  SKIP  2  LINES 

28  ALHATS 

29  LET  COCORD (CO  (TJ . PHAROH. 11  -  1 

30  ALHATS 

31  IF  CO.aROERCO.TO.HOVE 

32  IF  CON. PRINT  GT  IS 

33  PRINT  1  LINE  HITH  CO  (T1  THUS 

34  COHPANT  mm  HAS  BEEN  OROEREO  TO  HOVE 

35  SKIP  2  LINES 

36  ALHATS 

37  LET  COCORO  (CO  (Tl,  PHAROH,  1)  -  1 

38  FOR  EACH  TANK  IN  BLUE. ALIVE  HITH  COITANKJ-  CONPT  (COMPANY. COHHANDER) 

39  UNTIL  Jm 1 .  DO 

40  CALL  AIR.COHNO  (TANK, 3]  LET  CA1Tm4 

41  CALL  CO. GO  (TANK. 0.0) 

42  SCHEOULE  A  RE.HV. STATE (CO  (TANK))  IN  80  UNITS 

43  LET  JmJ-»i 

44  LOOP 

45  LET  ORDER-2 

46  LET  FLAG  -  4 

47  CALL  EXIT (0R0ER.T.CR1T.P.Z  TIME, FLAG) 

48  LET  FLAG  -  0 

49  RETURN 

50  ELSE 
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51  LET  RCHK  >  TRUNC.F  (AREA.  START  (T)  /JOO) 

52  IF  COCOROICOIT) 

53  LET  OROER-TES 

51  RLMRY3 

55  LET  FLRC  ■  IS 

56  CALL  EXIT (SR0ER.T.CRIT.P.2. TIRE. FLR6) 

57  LET  FLRC  -  0 

58  RETURN 

59  END 

60 
61 
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APPENDIX  J 


1  ROUTINE  0EC.8N 

2 

9  IF  C8H.PRINT  GT  20  PRINT  1  LINE  HITH  T1HE.V  THUS 

V  ENTERED  OEC.BN  ROUTINE  AT  TIHE.V-mmmmm.mmm 

5  ALHATS 

6  LET  TEXT  (Ml  -  TEXT. POINTER 

7  LET  PHAROH  -  TEXT  (II 

0  LET  OROER  -  TEXT  (21 

9  LET  T  «  TEXT  (31 

10  LET  CR1T  -  TEXT  (VI 

11  LET  P.Z.TINE  •  TEXT  (51 

12  LET  TEXT  (Ml -0 

13  IF  CREQST (CO (T) I  EQ  0  AND  TTPE  EQ  CO. BN. RED. PERN. TO. HOVE 

IV  LET  CAIT-1  LET  BNCUR  (BN  (T!  I  ■BNCUR  (BN  (T)  I  *  CQMT  (CO  (Tl  I 

IS  LET  CREQST  (CO  (T)  1-1 

IS  ALHATS 

17  IF  CO.HAS.HOVEO 

18  IF  CON. PRINT  GT  15 

19  PRINT  1  OOUBLE  LINE  HITH  0R1G.  AORSEE.  AND  TEXT. POINTER  AS  FOLLOHS 

20  VVVVV-—-CO  mmmmmmmm  NOTIFIED  BN  mmmmmmmm  BT  HESSAGE  (TEXT-mmmmmnmm)  THAT  IT  IS 

21  MOVING  FROM  ITS  CURRENT  POSITION. 

22  ALHATS 

23  LET  BNCUR  (BN  (Til  -  BNCUR  (BN  (Til  *  COHT  (CO  (Til 

2V  LET  FLAG- IS 

25  LET  T-RRRPOINT  (NO. BN.  UNIT  (8N  (Tl  1 1 

28  LET  AOOR. STORE  •  RRRP01NT (NO.BDE.UNIT (BDE (T)  1 1 

27  CALL  GEN. HOVE . DEC I S I  ON. HSG  (PHAROH. OROER. T.CRIT.P.Z.TI HE1  T I  ELDING  HSG 

28  LET  BEST. CODE  (HSG)  -  BOE. LEVEL 

29  LET  HSG. TTPE (MSG)  -  BN. NOT  IF. BDE. OF. CO. HOVE 

30  LET  ORIG  -  T 

31  3CHE0ULE  A  COMHO. ATTEMPT (ORIG, MSG)  IN  C0H06.DISTR  (PAR60.PAR61 . V)  UNITS 

32  RETURN 

33  ELSE 

3V  IF  SEC. HAS. MOVED 

35  IF  COH. PRINT  GT  15 

38  PRINT  1  OOUBLE  LINE  HITH  ORIG.  AORSEE.  AND  TEXT. POINTER  THUS 

37  86668-*****C0  mmmmmmmm  NOTIFIED  BN  mmmmmmmm  BT  HESSAGE  (TEXT-mmmmmmmm)  THAT  ONE  0 

38  F  ITS  SECTIONS  IS  MOVING  FROM  ITS  POSITION. 

39  ALHATS 

VO  RETURN 

VI  ELSE 

V2  IF  BN. OROEREO . TO. HOVE 

V3  LET  BNC8R0  (BATT  (BN  (Tl  I  .PHAROH,  1)  -  1 

VV  LET  BNCUR  (BN  (T)  I  -BNCUR  (BN  (T)  I  ♦  BNGO  (BN  (T)  I 

VS  ELSE 

V8  IF  BN. MAT. HOVE 

V7  LET  BNCORO  (BATT  (BN  (Til.  PHAROH.  1)  -  1 

V8  LET  BNCUR  (BN  (Tl  I  -  BNLO  (BN  (T)  I 

V9  ELSE 

SO  IF  BN. CAN. NOT. HOVE 


t 
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51  LET  BNCORO  (SOT  T  (BN  (T) ) ,  PHARON ,  1 )  -O 

52  RETURN 

53  ELSE 

56  RLNRTS 

55  ALHATS 

56  LET  TEMP-ADRSEE  LET  AORSEE-OR1G  LET  BRIG-TEMP 
S?  IF  BNCORO  (6ATT  (SN  (T) )  .PMAROH,  11  -1 

58 

5fl  ’’THIS  BATTALION  HAS  PERMISSION  TO  MOVE  AT  HILL. 

60 

61  IF  6NCUA  (BN  (T) )  GE  BNGO  (BN  (T) )  . 

62 

63  ’’THE  CRITICAL  STATUS  OF  THE  BATTALION  HAS  EXCEEDED  ITS  GO  THRESHHOLO. 

64 

65  IF  CON. PRINT  GT  15 

66  PRINT  1  LINE  H1TH  8N(T),  TIHE.V  AS  FOLLOWS 

67  8N(«m)  NOT  RESTRICTED  AND  OROERED  COMPANIES  TO  MOVE  AT 

68  ALHATS 

69  FOR  EACH  COMPANT. COMMANDER  IN  BATTALI ON  (BN tTl 1 .  DO 

70  LET  FLAG-9 

71  LET  T-RRRPOI NT  ICGHPT  (COMPANT. COMMANDER)) 

72  LET  AOOR. STORE  -  T 

73  CALL  GEN.MOVE. DECISION. MSG tPHAAQH, ORDER. T.CRIT.P.Z. TIME) 

74  T1EL0ING  MSG 

75  LET  OEST. CODE (MSG)  -  CO. LEVEL 

76  LET  NSG.TTPE(MSG) -CO. TOLD. TO. MOVE. BT. BN 

77  SCHEDULE  A  COMMO. ATTEMPT  (OR I G. MSG)  IN 

78  COHOS. 013TR (PAA53. PAR59, 5)  UNITS 

79  LOOP 

80  LET  FLAG-1 5 

81  LET  T-HRRPOINT  (NO. BN. UNIT  (BN  (T) ) ) 

82  LET  RODR. STORE  -  RRRPOINT  (NO.BDE.UNIT  (BDE  (T) ) ) 

83  CALL  GEN.MOVE. OECISION.MSG (PHAROH. ORDER, T.CRIT.P.Z. TIME)  TIEL01NG  MSG 

84 

85  ’’GENERATE  A  MESSAGE  INFORMING  BDE  THAT  ALL  COS  ARE  BEING  QROEREO  TO 

86  ’’HOVE  AS  SOON  AS  POSSIBLE. 

67 

88  LET  OEST. COOE  (MSG)  -  BDE. LEVEL 

69  LET  NSG.TTPE (MSGI  ■  BN. TELLS. BDE. OF. BN. MOVE 

90  IF  COM. PRINT  GT  15 

91  PRINT  1  DOUBLE  LINE  HITM  ORIG.  ADDR. STORE.  AND  MSG. NO  (MSG)  THUS 

92  77777—>*-*BN  NOTIFIED  BDE  BT  MESSAGE  NO  «*** **  THAT  IT  HAS  ORD 

93  ERED  ALL  COMPANIES  TO  MOVE  AS  SOON  AS  POSSIBLE. 

94  ALHATS 

95  SCHEDULE  A  COMMO. ATTEMPT (ORIG, MSG)  IN  C0M06.0ISTR (PAR60.PAR61 .4)  UNITS 

96  RETURN 

97  ELSE 

98  IF  BNCUR  (BN  (T) )  GE  BNL0(BN(T)1 

99 

100  ’’THE  BATTALION  CRITICAL  STATUS  HAS  EXCEEDED  THE  !.0  THRESHHOLO. 
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101 

102  IP  COM. POINT  GT  IS 

1(»  POINT  1  LINE  WITH  BN  (T) ,  T1HE.V  PS  FOLLOWS 

100  BN (mm)  NOT  0EST01CTE0  AND  GOVE  COS  PEON! SSI  ON  TO  HOVE  OT  mmnmm.mmm 

105  RLHRTS 

108  FOO  EACH  COMPANY . COMMANDER  IN  BATTALION tBN (T) ) .  DO 

107  LET  FLAG- 10 

108  LET  T-ROOPOl NT  (COHPT (COMPANY. COMMANDER) ) 

109  LET  ADOR. STORE  -  T 

110  CALL  GEN. MOVE. DECISION. MSG  IPMAROU. ORDER. T.CR1T.P.Z. TIME) 

111  YIELDING  MSG 

112  LET  OEST. CODE  (MSG)  -  CO. LEVEL 

IIS  LET  MSG. TYPE  (MSG)  -  BN.GAVE.CO.PERH.TO.MOVE 

Ilf  SCHEDULE  A  COMMA. ATTEMPT (ORIG. MSG)  IN 

115  COHOS. OISTO (PARS8. PA0S9, S)  UNITS 

116  LOOP 

117  LET  FLAG-11 

118  LET  T-ARRPOlNT  (NO. BN. UNIT  (BN  (T) ) ) 

119  LET  AOOR. STORE  -  RRRP01NT  (N0.BDE.UN1T  (BOE  (T) ) ) 

120  CALL  GEN. MOVE. DECISION. MSG  (PMRROH, ORDER. T.CRIT.P.Z. TIME)  YIELDING  MSG 

121 

122  "GENERATE  A  MESSAGE  INFORMING  BDE  THAT  ALL  COS  HAVE  BEEN  GIVEN 

123  "PERMISSION  TO  MOVE  AT  HILL. 

124 

125  LET  OEST. CODE (MSG)  -  BOE. LEVEL 

128  LET  MSG. TYPE (MSG)-  BN. TELLS. BDE. OF. BN. MOVE 

127  IF  COM. PRINT  GT  15 

128  POINT  1  DOUBLE  LINE  WITH  OfllG,  ADDA. STORE.  AND  MSG.NO(MSG)  THUS 

129  88888——8N  «««««««»  NOTIFIED  BOE  ——m—  BY  MESSAGE  NO  » m> -  THAT  IT  HAS  GIV 

130  EN  ALL  COMPANIES  PERMISSION  TO  MOVE  AT  HILL. 

131  ALHATS 

132  SCHEDULE  A  COMMA. ATTEMPT  (OR I G, MSG)  IN  C0M06.D! STR  (PAR60, PARS1 . 1)  UNITS 

133  RETURN 

134  ELSE 

135  IF  COM. PRINT  GT  15 

138  PRINT  1  LINE  H1TH  BN  (T) ,  TIME.V  AS  FOLLOWS 

137  BN (m«I  NOT  RESTRICTED  ANO  ORDERED  COMPANY  NOT  TO  HOVE  AT 

138  ALHATS 

139  LET  FLAG  -  12 

140  LET  BOOR. STORE  -  AORSEE 

141  LET  T  -  AORSEE 

142  CALL  GEN. MOVE. DECISION. MSG (PHARQW, ORDER. T.CRIT.P.Z. TIME)  YIELDING  MSG 

143  LET  OEST. CODE (MSG)  -  CO. LEVEL 

144  LET  MSG. TYPE (MSG) -BN. DIR. CO. NOT. TO. MOVE 

145  SCHEDULE  A  COMHO. ATTEMPT (OR I G, MSG)  IN  COHOS. OISTR (PAR58.PAR59.S)  UNITS 

148  RETURN 

147  ELSE 

148  IF  BNCUA  (BN  (T)  I  GE  BNLO  (BN  (T) ) 

149  IF  COM. PRINT  GT  IS 

150  PRINT  1  LINE  HITH  BN  (T)  ANO  TIME.V  THUS 
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151  BN(m«)  is  RESTRICTED  AND  IS  REQUESTING  PERMISSION  TO  HOVE  RT  . . . 

152  RLHATS 

153  LET  FLAG  -  13 

15*1  LET  T-RRAPOINT  (N0.8N.UNIT  (BN  (T)  >  I 

155  LET  AOOR.  STORE  -  RRRP01NT  (N0.80E.UN1T  (BOE  CT1 II 

158  CALL  GEN.HOVE. DECISION. MSG  IPHARON. ORDER. T.CRIT.P.2. TIME)  T1ELDING  MSG 

157  LET  DEST.COOE (MSG)  -  BOE. LEVEL 

158  LET  NSG.TTPEJH3G)-6N.80£.R£Q.PERM.TO.MOVE 

159  3CHE0ULE  A  COMMA.  ATTEMPT  10R16, MSG)  IN  C0H08. 01 STR  (PAR80.PAR61, til  UNITS 

160  RETURN 

161  ELSE 

162  IF  COM. PRINT  GT  IS 

163  PRINT  1  LINE  WITH  BN  IT)  AND  TIME.V  THUS 

164  BN  (mm)  IS  RESTRICTED  AND  ORDERED  THE  REQUESTING  CO  NOT  TO  MOVE  AT  nhhmi 

165  ALNATS 

166  LET  FLAG- IV 

167  CALL  EXIT  (OROER.T, CR1T, P.Z. T I  HE. FLAG) 

168  LET  AOOR. STORE  -  AORSEE 

169  LET  T  -  AORSEE 

170  CALL  GEN. MOVE. 0EC1SI0N. MSG  IPHARON.OROER.T.CRIT.P.Z. TIME)  YIELDING  MSG 

171  LET  OEST.COOE (MSG)  -  CO. LEVEL 

172  LET  HSG.TTPECMSGI-BN.OIR.CO.NOT.TO.MOVE 

173  SCHEDULE  A  COMHO. ATTEMPT  (OR I G, MSG)  IN  COHOS. OISTR  (PAR58.PRR59.S)  UNITS 

17V  RETURN 

175  ENO 

176 

177 
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APPENDIX  K 


1  ROUTINE  OEC.BQE 

2 

3  IF  COM. PRINT  GT  20  PRINT  1  LINE  WITH  T1RE.V  THUS 

4  ENTEREO  DEC. ROE  ROUTINE  AT  TIHE. . . . 

5  ALWAYS 

6  LET  TEXT  HO  -  TEXT. POINTER 

7  LET  PHAROW  •  TEXT  (I) 

8  LET  OROER  •  TEXT  (2) 

9  LET  T  -  TEXT  (3) 

10  LET  CRIT  -  TEXT  14) 

11  LET  P.Z.TIME  •  TEXT  15) 

12  LET  TEXT  00-0 

13  IF  BREOST (BN (Til -0  ANO  TYPE  EO  BN. BOE . RED. PERM. TO. HOVE 

11  LET  CRIT-2 

15  LET  BOECUR  (BOE  (T) )  -BDECUR  (BOE  (T) )  *BNHT  (BN  (T)  1 

16  LET  BREOST  (BN  IT)  1  -1 

17  ALWAYS 

18  IF  8N. HAS. MOVED 

19  IF  COM. PRINT  GT  IS 

20  PRINT  1  DOUBLE  LINE  WITH  ORIG.  ADDRESSEE  (HSG) .  ANO  TEXT. POINTER  THUS 

21  5SS5S-— *8N  — *«  NOTIFIED  BRIGADE  *— — «  BT  MESSAGE  mm—  THAT  IT  HRS 

22  HOVEO  FROM  ITS  POSITION 

23  ALWAYS 

21  LET  BOECUR  (BDE  (Til  -  BOECUR  (BOE  (Tn  *  BNWT  (BN  (T)  1 

25  LET  FLAG-21 

26  LET  T-RRRPOINT(NO.BOE.UNIT(BOE(T))) 

27  LET  AOOR. STORE  -  RRRP01NT  (N0.Q1V.UNIT  (01 V  (T) )  1 

28  CALL  GEN. MOVE. OECI SION. MSG IPMAROW, OROER. T, CRIT. P.Z. TIME)  YIELDING  HSG 

29  LET  OEST. CODE  (MSG)  -  01V. LEVEL 

SO  LET  MSG. TYPE (MSGJ  -  BDE.NOTIF.01V.OF.BN.HOVE 

31  LET  ORIG  -  T 

32  SCHEDULE  A  COMMA. ATTEMPT  (ORIG, MSG1  IN  C0M03.DISTR (PAR54.PARSS.9)  UNITS 

S3  RETURN 

31  ELSE 

35  IF  CO. HAS. MOVED 

36  IF  COM. PRINT  GT  15 

37  PRINT  1  OOUBLE  LINE  WITH  ORIG,  RDRSEE,  ANO  TEXT. POINTER  AS  FOLLOWS 

38  AAAAA*—*BN  mmmmmmmm  NOTIFIED  BDE  mmmmmmmm  BY  MESSAGE  (TEXT———)  THAT  ONE 

39  OF  ITS  COMPANIES  IS  MOVING  FROM  ITS  POSITION. 

10  ALWAYS 

■II  RETURN 

42  ELSE 

43  IF  BOE. ORDERED. TO. HOVE 

44  LET  BOECORD  (BADE  (BOE  (TI).  PHAROW,  1)  -  1 

45  LET  BOECUR  (BOE  (Tl  1  -  BOECUR  (BOE  (T) )  -  BDEGO  (BOE  (TJ I 

46  ELSE 

47  IF  BOE. MAY. MOVE 

48  LET  BOECORD  (BROE  (BOE  (Tl),  PHAROW.  1 1  -  1 

49  LET  80ECUR  (BOE  IT) )  -  BOELO  (BOE  (T) ) 

50  ELSE 
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51  IF  BOE. CAN. NOT. MOVE 

52  LET  BOECORO  (BflOE  (BOE  IT) )  .PHRROH.  1)  *  0 

53  RETURN 

SB  ELSE 

55  ALMRTS 

SO  BLURTS 

57  LET  TENF-RORSEE  LET  flDRSEE-QRIG  LET  ORIG-TEMP 

SO  IF  BOECORO  (BROE  (BOE  (T))t  PHRROH,  1)  -  I 

SB 

50  "THIS  BRIGADE  HRS  PERMISSION  TO  HOVE  RT  HILL. 

51 

62  IF  BOECUR  (BOE  (T)  1  GE  BOEGO  (BOE  IT) I 
S3 

SB  ’'THE  CRITICAL  STATUS  OF  THE  BRIGADE  HRS  EXCEEOEO  ITS  GO  THRESHHOLO. 

65 

66  LET  CRIT  -  B 

67  IF  COM. PR  I  NT  GT  IS 

68  PRINT  I  LINE  NITH  BOE  (T)  AND  TIHE.V  THUS 

89  BOE(xx)  NOT  RESTRICTED  AND  ORDERED  BATTALIONS  TO  HOVE  RT  xxxxx.xx* 

70  RLHflTS 

71  FOR  ERCH  BN.COMHRNQER  IN  BRIGADE  (BOE  IT) J .00 

72  LET  FLRG-5 

73  LET  TxRRRPOINT  (NO. BN. UNIT (BN.COHHANOER) ) 

76  LET  ROOR. STORE  -  T 

75  CALL  GEN.HOVE.OECISION.HSG  (PHRROH, ORDER. T, CRIT .P.Z.TIHE)  TIELDING  HSG 

78  LET  OEST.COOE (MSG)  -  BN. LEVEL 

77  LET  MSG. 7TPE (MSG) »BN.  TOLD. TO. HOVE. BT.BDE 

78  SCHEDULE  fl  COMHO. ATTEMPT  (OR I G. MSG)  IN  CQM06.DISTR  (PAR56.PAR57.7)  UNITS 

79  LOOP 

80  LET  FLAG  -  17 

81  LET  T  -  RRRP01NT  (NO. BOE. UNIT  (BOE  (T) ) ) 

82  LET  ROOR. STORE  •  RRRPQINT  (NO. 01 V. UNIT  (BOE  (T) ) ) 

83  CALL  GEN.HOVE.OECISION.HSG  (PHRROH, ORDER. T. CRIT. P.Z.TIHE)  TIELDING  HSG 

86 

85  ’’GENERATE  fl  MESSAGE  INFORMING  01 V  THAT  ALL  BNS  ARE  BEING  ORDERED  TO 

88  ’’HOVE  AS  SOON  RS  POSSIBLE. 

87 

88  LET  OEST.COOE  (HSG)  ■  OIV. LEVEL 

89  LET  HSG.TTPE (HSG)  -  BOE. LETS. DIV.KNOH. OF. BOE. MOVE 

90  IF  COM. PRI NT  GT  15 

91  PRINT  1  OOUBLE  LINE  NITH  ORIG,  ROOR. STORE.  AND  HSG.NO  (HSG)  THUS 

92  Ba8B8+-»r*+B0E  xxxxxxxx  NOTIFIED  OIV  xxkkmmxk  BT  MESSAGE  NO  xxxxxx  THAT  IT  HRS  OR 

93  OEREO  ALL  BATTALIONS  TO  HOVE  RS  SOON  RS  POSSIBLE. 

96  RLHflTS 

95  SCHEDULE  fl  COHMO. ATTEMPT (ORIG, HSG)  IN  C0H03.DISTR  (PRR54.PAR55.9)  UNITS 

96  RETURN 

97  ELSE 

98  IF  BOECUR  (BOE  (T) )  GE  BOELO  (BOE  (T) ) 

99 

100  ’’THE  BRIGADE  CRITICAL  STATUS  HRS  EXCEEDED  THE  LO  THRESHHOLO. 
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101 

102  LET  CRlT-3 

103  IF  CON. PRINT  CT  IS 

104  PRINT  1  LINE  WITH  BOE(T)  RNO  TIHE.V  THUS 

105  BDE  (mm)  not  RESTRICTED  RNO  GAVE  BNS  PERMISSION  TO  HOVE  AT  mmmmm.mmm 

108  ALHATS 

107  FOR  EACH  8N.C0HHAN0ER  IN  BRIGADE  (BDE  (T> ) .  DO 

108  LET  FLAG-6 

109  LET  T-RRRP01NT (NO. BN. UNIT  tBN. COMMANDER) ) 

110  LET  BOOR. STORE  -  T 

111  CALL  GEN. MOVE. 0ECIS10N. MSG  (PHAROH, ORDER, T, CR I T.P.Z. TIME)  YIELDING  MSG 

112  LET  BEST. COOE (MSG)  -  BN. LEVEL 

113  LET  MSG. TYPE  (MSG) -BDE. GAVE. BN. PERM. TO. MOVE 

114  SCHEDULE  A  COMMA. ATTEMPT  (ORIG. MSGJ  IN  C0M04.01STB  (PAB56.PABS7.7)  UNITS 

115  LOOP 

116  LET  FLAG  -  18 

117  LET  T  ■  RRRPOINT  (NO. BDE. UNIT  (BDE  (T) ) ) 

118  LET  AOOA. STORE  -  RRRPOINT  (N0.01V. UNIT  (BDE  IT) )) 

119  CALL  GEN. HOVE. OECISION.HSG (PHAROH. ORDER. T.CR1T.P.Z. TIME)  YIELDING  MSG 

120 

121  "GENERATE  A  MESSAGE  INFORMING  D1V  THAT  ALL  BNS  HAVE  BEEN  GIVEN 

122  "PERMISSION  TO  HOVE  AT  HILL. 

123 

124  LET  BEST. CODE  (MSG)  -  0 IV. LEVEL 

125  LET  MSG. TYPE  (MSG)  -  BOE.LETS.OIV.KNOH.OF.BDE.NOVE 

126  IF  COM. PRINT  GT  IS 

127  PRINT  1  DOUBLE  LINE  HITH  ORIG.  ADDA. STORE.  AND  HSG.NO(MSG)  THUS 

128  CCCCC— '+*BDE  ********  NOTIFIED  OIV  ********  BY  MESSAGE  NO  ******  THAT  IT  HAS  Cl 

129  VEN  ALL  BATTALIONS  PERMISSION  TO  MOVE  AT  HILL. 

130  ALHRYS 

131  SCHEDULE  A  COMMA. ATTEMPT  (ORIG, MSG)  IN  C0H03.DISTR  (PAR54.PAR55.9)  UNITS 

132  RETURN 

133  ELSE 

194  IF  COM. PRINT  GT  IS 

135  PRINT  1  LINE  HITH  BDE  (T)  RNO  TIHE.V  AS  FOLLOHS 

138  BOE  (mm)  NOT  RESTRICTED  RNO  ORDERED  THE  BATTALION  NOT  TO  HOVE  AT  mmmmm.mmm 

137  ALHATS 

138  LET  FLAG-7 

139  LET  AODR. STORE  -  ADRSEE 

140  LET  T  -  ADRSEE 

141  CALL  GEN. MOVE. DECISION. MSG(PHAROU. ORDER. T.CRIT.P.Z. TIME)  YIELDING  MSG 

142  LET  BEST. CODE (MSG)  -  BN. LEVEL 

143  LET  MSG. TYPE (MSG)  -BOE. DIR. BN.  NOT. TO.  MOVE 

144  SCHEOULE  A  COMMO. ATTEMPT (ORIG. MSG)  IN  C0M04.D1STR (PARS6.PAR57, 7)  UNITS 

145  RETURN 

148  ELSE 

147  IF  BOECUR  (BOE  (T) )  GE  BDELO  (BOE  (T) ) 

148  IF  CON. PRINT  GT  15 

149  PRINT  1  LINE  HITH  BOE (T)  AND  TIHE.V  THUS 

150  BOE (mm)  IS  RESTRICTED  AND  IS  REQUESTING  PERMISSION  TO  MOVE  AT  mmmhm.mmmmm 
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151  ALWAYS 

152  LET  FLAG  -  19 

153  LET  TmRRRPOINT (NO. BOE. UNIT  (BDE (T) ) ) 

154  LET  AOOR. STORE  -  RRRPOINT (NO.OIV. UNIT  (OJV (T) ) ) 

155  CALL  GEN. HOVE. DEC1S10M.HSG  (PHAROW.OROER.T.CRIT.P.Z.TIHE)  YIELDING  NSC 

158  LET  BEST. CODE  (MSG)  -  01V. LEVEL 

157  LET  HSG.TYPE(HSG)  •  B0E.D1V.REQ. PERM. TO. HOVE 

158  SCHEDULE  A  COHHO. ATTEMPT  (ORIG.MSG)  IN  C0M03.D1STR (PAR54.PARSS.S1  UNITS 

159  RETURN 

180  ELSE 

161  IF  COH. PRINT  GT  15 

162  PRINT  1  LINE  WITH  BOE  (T)  AND  TIHE.V  THUS 

163  BOE  (mm)  IS  RESTRICTED  ANO  ORDERED  THE  REQUESTING  BN  NOT  TO  HOVE  AT  mmmmm.n* 

164  ALWAYS 

185  LET  FLAG  -  20 

166  CALL  EXIT (ORDER, T.CRIT.P. Z. TIME, FLAG) 

167  LET  AOOR. STORE  »  AORSEE 

168  LET  T  «  AORSEE 

169  CALL  GEN. MOVE. DECISION. MSG (PHAR0W.0R0ER.T.CR1T.P.2. TIME)  YIELDING  MSG 

170  LET  OEST.COOE (MSG)  >  BN.LEVEL 

171  LET  MSG. TYPE  1HSG)  «  BOE. DIR. BN. NOT. TO. MOVE 

172  SCHEDULE  A  COHHO. ATTEMPT (ORIG.MSG)  IN  C0M04.01STR  (PAR56.PAR57.7)  UNITS 

173  RETURN 

174  END 

175 

176 
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APPENDIX  L 


1  ROUTINE  0EC.01V 

2 

3  IF  COH.FRINT  GT  20 

It  PRINT  1  LINE  WITH  T1HE.V  THUS 

5  ENTERED  DEC.OIV  ROUTINE  RT  T1HE.V  -  ««■««. ««« 

0  RLHflYS 

7  LET  TEXT  («)  -  TEXT. POINTER 
0  LET  PNRROH  -  TEXT  (II 

9  LET  OROER  -  TEXT  (2) 

10  LET  T  -  TEXT  (3) 

11  LET  CRIT  -  TEXT  (1) 

12  LET  P.2. TIME  ■  TEXT  (5) 

13  LET  TEXT  («)  -0 

14  IF  BOEREQST (BOE  (TI) -0  RNO  TYPE  EQ  BDE.OIV.REQ.PERM.TO.HOVE 

15  LET  CRIT-5 

IS  LET  01VCUR  (0!  V  (T) )  ■OIVCUR  (02  V  (T) )  ♦  BOEHT  (BOE  CT)  I 

17  LET  OlVREQST  (BOE  (T) )  -1 

IB  ALHRYS 

19  IF  COM. PRINT  GT  15 

20  PRINT  1  LINE  WITH  OIV(T)  RNO  TIME.V  THUS 

21  OIV(«m)  NOT  RESTRICTED  RNO  GRVE  80ES  PERMISSION  TO  HOVE  AT  nnmnm.nn* 

22  ALHRYS 

23  FOR  EACH  BOE. COMMANDER  IN  DIVISION  (DIV (Tl) .  DO 

24  LET  FLAG-22 

25  LET  T-RRRP01NT  (NO. BOE. UNIT (BOE. COMMANDER)) 

26  LET  RDOR. STORE  -  T 

27  CALL  GEN. MOVE. 0ECI310N. MSG  (PHAROH. ORDER. T. CRIT, P.2. TIME)  YIELDING  HSG 

28  LET  OEST. CODE  (HSG)  -  BOE. LEVEL 

29  LET  M3G.TYPE  (MSG) -OIV.GAVE. BOE. PERM. TO.MOVE 

30  SCHEOULE  A  COMMO. ATTEMPT  (OR I G, MSG)  IN  C0M20. DI STR (PRR71 , PAR72. 7)  UNITS 

31  LOOP 

32  RETURN 

33  ENO 

34 

35 
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APPENDIX  M 


1  ROUTINE  EXIT  (ORDER, T, CR! T.R.Z.T! HE ,FLRG) 

2 

3  IF  CHIT  NE  0  AND  CR1T  LE  3 

V  LET  CR1T  -  CRIT  -  1 

5  CALL  RIR.COHHO (T.CR1T1 

8  LET  CRIT  •  CRIT  ♦  i 

7  ALWAYS 

8  IF  (OROER-O  OR  ORDER-21  ANO  F.Z.T1HE-NO 

9  SCHEDULE  fl  PHRZ.CHK  IN  80  UNITS  LET  P.Z.T1HE-TES 

10  RLHRTS 

11  IF  0R0ER-2  LET  OROER-NO 

12  RLHRTS 

13  IF  CON. PRINT  CT  20  PRINT  1  LINE  HITH  TIME.V  RNO  FLOG  -THUS 

IV  OUT  OF  DECISION  RT  . . —  THROUGH  EXIT  »> 

IS  RLHRTS 

18  RETURN 

17  END 

18 

19 
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APPENDIX  N 


1  ROUTINE  GEN. MOVE. DECISION. HSG (PHAROH, ORDER. T .  CR I T , P. Z. TINE)  TIEID1NG  HS6 

2 

3  CREATE  R  MESSAGE  CALLED  MSG 

4  RESERVE  TEXT  («l  AS  S 

5  LET  M3G.TEXT  (MSG) -TEXT  («) 

6  LET  TEXT  (l)-PHRROH 

7  LET  TEXT (2) -ORDER 

8  LET  TEXT  (3) -T 

9  LET  TEXT  (9)  -CRIT 

10  LET  TEXT (S) -A. Z. TIME 

11  LET  ADORESSEE (MSG) -ADDS. STORE 

12  LET  LENGTH. MSG (MSG) -30.0 

13  LET  LST.SEN0.T1ME (MSG) -TIME. V  *  1200.0 

IV  LET  MSG. NO  (MSG)  -  NXT.  MSG. NO  (FMTANK.L1ST  (ORIG) ) 

IS  ADO  1  TO  NXT.MSG.Ne  (FMTANK. LIST  (QR1G1) 

10  IF  COM. PRINT  GT  IS 

17  SKIP  1  LINE 

18  PRINT  1  LINE  WITH  T1ME.V  AS  FOLLOWS 

19  ——EXECUTING  GEN. MOVE. DECISION. MSG  ROUTINE  AT  TIME. V— mm.— 

20  PRINT  1  DOUBLE  LINE  WITH  MSG. NO  (MSG).  ORIG.  ADDRESSEE  (MSG) .  TEXT  t«)  , 

21  PHARflU,  ORDER.  T.  CRIT.  RND  FLAG  THUS 

22  MSG.  NO  —  FROM  mm —  TO  —  -  TEXT  mmmmmmmm  PHAROH  —  ORDER 

23  MM  T  MMMMMMMN  CRIT  MMM  RETURN  MM 

24  ALHATS 

25  LET  TEXT  (m)  -0 

26  LET  FLAG  -  0 

27  RETURN 

28  ENO 

29 

30 


10  3 


APPENDIX  0 


1 

2 

3  ROUTINE  COM. MAIN 

4  RESERVE  OUMMTOO  AS  1 

5  CALL  3U1L0NETS 

6  CALL  CHECKNETS 

7  CALL  BNETTBL 

8  CALL  COHMGEAR 

9  CALL  COMMCHECK 

10  CALL  INITIALIZE 

11  LET  FMNET  -  F. ETHER 

12  SCHEOULE  A  0UMP.HA1L8AG  IN  600.0  UNITS 

13  SCHEOULE  A  MSG. GEN (FHNET)  IN  C0M01 . D1STR (PARSO, PAR51 . 1)  UNITS 

14  IF  COM. PRINT  GT  25 

15  START  NEH  PAGE 

16  LIST  ATTRIBUTES  OF  EACH  B.HVR.COR 

17  IF  LINE.V  GT  20 

18  START  NEM  PAGE 

19  ALHATS 

20  LIST  ATTRIBUTES  OF  EACH  UNIT  IN  BLUE. ALIVE 

21  ALNATS 

22  START  NEH  PAGE 

23  RETURN 

24  END 
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APPENDIX  P 


1 

2 

3 

4 

5 
8 

7 

8 

9 

10 
11 
12 

13 

14 

15 
18 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
48 

47 

48 

49 

50 


ROUTINE  BU1L0NETS 

0EF1NE  1.  J.  K.  NALTFR,  NETNO.  NFHN,  NONETS.  NORELRT ,  NPR1.  NRSUB.  NTCK.  TKALT, 
RNO  TKHOLO  AS  INTEGER  VARIABLES 

REAO  NONETS.  NORELAT 
IF  NONETS  IS  EQUAL  TO  ZERO. 

GO  TO  X3 
OTHERWISE 

FOR  I  -  1  TO  NONETS.  00 

LET  NETNO  ■  0  “DONE  TO  AID  ERROR  IDENTIFICATION" 

REAO  NFMN.  NRSUB.  NALTFR  — 

REAO  NTCK  ANO  NPA1 

IF  NTCK  IS  NOT  EQUAL  TO  NFMN, 

GO  TO  ERROR 
OTHERWISE 
CREATE  AH  FHNET 
FILE  FHNET  IN  THE  ETHER 
FOR  J-l  TO  NRSUB.  00 
REAO  TKHOLO 
CREATE  A  SUBSCRIBER 
LET  TFC. WAITING (SUBSCRIBER)  ■  0 
LET  OHN.NET (SUBSCRIBER)  >  FHNET 
LET  OWN. TANK  (SUBSCRIBER)  -  RRRPOINT  ITKH0LDI 
FILE  SUBSCRIBER  IN  CE3I. LIST (FHNET) 

LOOP 

LET  NUH.NET  (FHNET)  «  NFHN 
LET  FH.  IDLE  (FHNET)  •  IDLE 
LE7  FHPRI. FREQ  (FHNET)  -  NPRI 
IF  NALTFR  IS  EQUAL  TO  ZERO. 

LET  FHALT. FREQ  (FHNET)  »  0 
GO  TO  X4 
OTHERWISE 
REAO  NETNO 

IF  NETNO  IS  NOT  EQUAL  TO  NFHN, 

GO  TO  ERROR 
OTHERWISE 

RESERVE  FH.  PUSHES  (*)  AS  (NALTFR  ♦  II 
LET  FHALT. FREQ  (FHNET)  -  FH. PUSHES  («) 

LET  FH. PUSHES  (1!  -  NALTFR 
FOR  K-l  TO  NALTFR.  00 
REAO  TKALT 

LET  FH.  PUSHES  (K-M)  »  TKALT 
LOOP 

*X4  *  "CONTINUE" 

LET  FH.  PUSHES  (*0  ■  0 
LOOP 

*X3'  "CONTINUE" 

RETURN 

•ERROR'  "CONTINUE" 
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51  PRINT  2  LINES  WITH  NFMN,  NTCK  AND  NETNO  LIKE  THIS 

52  ERROR,  NET  NUMBER  mhmm.  SUBS.  NUMBER  »mm«, 

53  AND  ALT. FREQ  NET  NUMBER  »mm»  ARE  INCONSISTENT 

54  SKIP  1  LINE 

55  PRINT  1  LINE  WITH  NONETS  AND  NQRELRT  LIKE  THIS 

56  NONETS-hmm*,  NOREALT-mmmh 

57  PRINT  1  LINE  WITH  NFMN.  NRSUB.  NALTFR  LIKE  THIS 

SB  NFMN-mmkh,  NRSUB-mmmh,  NALTFR-«*h« 

59  PRINT  1  LINE  WITH  NTCK.NPRI.TKHOLO  LIKE  THIS 

60  NTCK-hxmh,  NPRI-mhmm.TKHOLD-  **»* 

61  STOP 

62  ENO 

63 
61 
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APPENDIX  Q 


1  ROUTINE  CHECKNETS 

2  DEFINE  I  AND  NFMALT  RS  INTEGER  VARIABLES 

3 

It  FOR  EACH  FHNET  IN  THE  ETHER.  DO 

5  IF  LINE. V  GT  57  START  NEH  PAGE 

8  ALHATS 

7  PRINT  I  LINE  WITH  NUH.NET  (FHNET)  LIKE  THIS 

8  FOR  NET  NUHBER  «<« 

9  SKIP  1  LINE 

10  -PRINT  1  LINE  WITH  FHPR I  .FREQ  (FHNET)  LIKE  THIS 

11  PR1MART  FREOUENCT  IS  »hhh**»h*  KH2 

12 

13  IF  FHALT. FREQ  (FHNET)  IS  NOT  EQUAL  TO  ZERO. 

Ill  LET  FM. PUSHES  («l  -  FMALT. FREQ  (FHNET) 

15  LET  NFMALT  -  FM. PUSHES  (1) 

16  PRINT  1  LINE  WITH  NFMALT  LIKE  THIS 

17  THERE  ARE  nx-mhhm  ALTERNATE  FREQUENCIES 

18  FOR  1  -  1  TO  NFMALT.  00 

19  PRINT  1  LINE  WITH  FM. PUSHES  (I'M)  LIKE  THIS 

20 

21  LOOP 

22  OTHERWISE 

23  PRINT  1  LINE  LIKE  THIS 

24  THERE  ARE  NO  ALTERNATE  FREQUENCIES 

25  ALHATS 

26  PRINT  1  LINE  WITH  N.CEOI. LIST  (FHNET)  LIKE  THIS 

27  THERE  ARE  *****  SU8SCR18ERS  IN  THE  NET. 

28  SKIP  3  LINES 

29  LOOP 

30  RETURN 

31  END 

32 

33 


APPENDIX  R 


■""""US 


1  ROUTINE  BNETTBL 

2  DEFINE  1  ANO  J  AS  INTEGER  VARIABLES 
9 

4  RESERVE  NETTBL (»,«)  AS  N. ETHER  BT  « 

5  RESERVE  RPOINT  (»,*)  AS  N. ETHER  BT  m 

8  LET  I  -  I 

7  FOR  EVERT  FHNET  IN  THE  ETHER.  DO 

B  RESERVE  NETTBL  II.  «I  AS  N.CEOI. LIST  (FHNET) 

9  RESERVE  RPOINT  (I. «)  AS  N.CEOI. LIST  (FHNET) 

10  LET  J  -  1 

11  FOR  EVERT  SUBSCRIBER  IN  CEOI .LIST  (FHNET) ,  00 

12  LET  NETTBL  (l.J)  -  TK.  ID  (OWN. TANK  (SUBSCRIBER) ) 

13  LET  RPOINT (l.J)  -  SUBSCRIBER 

|<l  LET  J  •  J  ♦  I 

15  LOOP 

16  LET  I  •  I  ♦  1 

17  LOOP 

18 

19  IF  LINE.V  GT  82  START  NEH  PAGE 

20  RLNAYS 

21  PRINT  1  LINE  LIKE  THIS 

22  THE  ITH  ROM  OF  ARRAY  NETTBL  CONTAINS  T HE  SUBSCRIBERS  IN  THE  ITH  RADIO  NET 

23  LIST  NETTBL 

24  SKIP  2  LINES 

25  IF  LINE.V  GT  88  START  NEH  PAGE 

26  .  ALHAYS 

27  PRINT  1  DOUBLE  LINE  LIKE  THIS 

28  THE  ITH  RON  OF  THE  ARRAY  RPOINT  CONTAINS  THE  ADDRESS  POINTERS  OF  THE  SUBSCR 

29  IBCRS  IN  THE  ITH  RADIO  NET 

SO  LIST  RPOINT 

31  SKIP  2  LINES 

32  RELEASE  RPOINT  («. «) 

S3  RETURN 

3<i  END 

35 

36 
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APPENDIX  S 


1  ROUTINE  CONHGEAR 

2  OEFINE  1.  J.  NORRO.  NRAOIO. TANKS.  AND  TKNO  AS  INTEGER  VARIABLES 

3 

II  READ  NRAOIO. TANKS 

5 

6  FOR  I  -  1  TO  NRAOIO. TANKS.  00 

?  RE AO  TKNO.  NOR AO 

8  CREATE  A  HT3ET 

9  LET  TANK  «  RRRFOINT  (TKNOl 

10  LET  FNTANK.L1ST  (TANK)  -  NTSET 

11  FOR  J  ■  1  TO  NORAO.  00 

12  CREATE  AN  RT. CONFIG 

13  FILE  RT. CONFIG  IN  RAD. LIST  (HTSETI 

14  READ  RAO. TYPE  (RT. CONFIG)  AND  MOQE. OPERATION  (RT. CONFIG! 

15  RE  AO  ANT.  TYPE  (RT.  CONFIG) 

18  IF  ANT. TYPE  IRT. CONFIG)  IS  LESS  THAN  ZERO. 

17  "DIRECTIONAL  ANTENNA  INPUT" 

18  PRINT  3  LINES  WITH  TKNO.  NORAD.  J.  RAD. TYPE  (RT. CONFIG) . 

19  HOOE. OPERATION  (RT. CONFIG)  AND  ANT. T TPE  (RT. CONFIG)  LIKE  THiS 

20  ON  TANK  xxw.,  WITH  A  TOTAL  OF  xxxx  RADIOS.  FOR  RADIO  SET 

21  NUMBER  »«««,  OF  TYPE  «««»,  NODE  ««««,  AND  ANTENNA  xxxx 

22  - THIS  SET  OPERATES  A  DIRECTIONAL  ANTENNA 

23  STOP 

21  ALHATS 

25  REAQ  REM. ANT  (RT. CONFIG) 

26  IF  REM. ANT  (RT. CONFIG)  IS  NOT  EQUAL  TO  ZERO. 

27  "REMOTED  AMTEnnA  INPUT" 

28  PRINT  3  LINES  HITH  TKNO.  NORAD.  J.  RAD. TYPE  (RT. CONFIG) . 

29  MODE. OPERAT I ON  (RT. CONFIG)  AND  ANT. T TPE  (RT. CONFIG)  LIKE  THIS 

30  ON  TANK  xxxx.  HITH  A  TOTAL  OF  »»  RADIOS.  FOR  RADIO  SET 

31  NUMBER  xxxx,  OF  TYPE  xxxx  AND  MODE  xxxx,  HITH  ANTENNA  mix* 

32  - THIS  SET  OPERATES  HITH  A  REMOTED  ANTENNA 

33  STOP 

34  REGAROLESS 

35  LOOP 

36  LOOP 

37 

38  "USE  NET  STRUCTURE  INPUT  PREVIOUSLY  TO  ASSIGN  EQUIPMENTS" 

39  "TO  NETS" 

40 

41  IF  LINE. V  GT  30  START  NEH  PAGE 

42  ALWAYS 

43  PRINT  4  LINES  AS  FOLLOWS 

44  RRRPOINT  (TK.  ID  (TANK) )  -  TANK 

45  FMTANK.LIST(TANK)  -  MYSET  (TANK) 

46 

47 

48  FOR  EVERT  FHNET  IN  THE  ETHER.  DO 

49  PRINT  1  LINE  HITH  NUM.NET  (FMNET)  AND  FHNET  AS  FOLLOWS 

50  NUM.NET (FMNET)  -  xxx  FMNET  POINTER  -  xxxxxxxx 
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51  SKIP  1  LINE 

52  FOR  EVERT  SUBSCRIBER  IN  CEOI .LIST  (FHNET) .  OB 
LET  TANK  -  BUN. TRNK  (SUBSCRIBER) 

IF  FHTANK. LIST  ITRNK)  EQUALS  ZERB, 

68  TO  ERROR 1 
OTHERWISE 

LET  MT3ET  «  FHTANK.L1ST  (TANK) 

LET  NXT.MSG.NO  (HTSET)  -  ITK.  ID  (OHN. TANK  (SUBSCRIBER) )  *  1QOO)  *  1 
FOR  EVERT  RT. CONFIG  IN  RAO. LI ST  (HTSET) .  00 
IF  OHN. SUBSCR I BERIRT. CONFIG)  EQUALS  ZERO. 

GO  TO  J01N.NET 
OTHERWISE 
LOOP 

GO  TO  ERR0R2 

•J0IN.NET*  * 'PLACE  THIS  EQUIPMENT  ON  THE  NET” 

LET  OWN. SUBSCRIBER (RT. CONFIG)  -  SUBSCRIBER 

PRINT  1  DOUBLE  LINE  WITH  TK. ID (TANK),  TRNK.  FHTANK. LIST  (TANK) ,  RT. CONFIG. 

ANO  OWN. SUBSCR IBER(RT. CONFIG)  AS  FOLLOWS 
TK.IO(TANK)-nm«mm  TANK-mmmmmmhh  FHTANK. LIST  (TANK)  •mmhmmhhm 

RT . CONF 1G*mmmmmmmn  SUBSCR I BER'xkmkmkxm 

LOOP 

SKIP  1  LINE 
LOOP 

SKIP  5  LINES 
RETURN 

•ERfiORl  •  • ’ERROR  WHEN  TANK  HAS  NO  RAOIOS" 

PRINT  1  LINE  WITH  TK. 10  (TANK)  ANO  NUH.NET  (FHNET)  LIKE  THIS 


ERROR.  TANK  hmmm  ON  NET  »mm»  HAS  NO  RAOIOS 


83 

STOP 

81 

85 

•ERR0R2*  "ERROR  WHEN  TANK  HAS  TOO  FEW  RADIOS  FOR 

ASGO.  NETS" 

86 

PRINT  1  LINE  WITH  TK. 10  (TANK)  ANO  NUM. NET  (FHNET) 

LIKE  THIS 

87 

ERROR.  TANK  mmkm  HAS  TOO  FEW  RAOIOS  TO  BE  ON 

net  ««*•« 

88 

STOP 

89 

90 

END 

91 

92 
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APPENDIX  T 


1  ROUTINE  CQHHCHECK 

2 

3  FOR  EACH  TANK  IN  BLUE. ALIVE.  00 

I  IF  LINE. V  GT  SO  START  NEM  PAGE 

5  ALHATS 

6  IF  FNTANK.L1ST  (TANK)  IS  EQUAL  TO  ZERO. 

7  PRINT  2  LINES  MITH  TK. 10  (TANK).  X. CURRENT  (TANK) , 

8  T. CURRENT  (TANK)  ANO  Z. CURRENT  (TANK)  LIKE  THIS 

9  TANK  hmhm 

10  LOCATED  AT  mmnm.m,  mnmm.n,  xkmm.m  HAS  NO  COHHO  EQUIPMENT 

II  GO  TO  XI 
12 

13  OTHERWISE 

14  PRINT  2  LINES  WITH  TK. 10  (TANK),  X. CURRENT (TANK) , 

15  T. CURRENT (TANK)  ANO  Z. CURRENT  (TANK)  LIKE  THIS 

16  TANK  mmmm 

17  LOCATED  AT  »««*.«,  mmnm.m.  mmmn.m  HAS  THE  FOLLOWING  COHHO 

18  SKIP  1  LINE 

19 

20  LET  MTSET  -  FMTANK. LIST  (TANK) 

21  FOR  EACH  RT. CONFIG  IN  RAO. LIST  (HTSET) ,  DO 

22  PRINT  2  LINES  WITH  RAO. TTPE (RT. CONFIG)  ANO 

23  NOOE . OPER AT ION (RT .CONFIG)  LIKE  THIS 

24  RA010  TTPE  -  -mm 

25  - NODE  OF  OPERATION  -  — 

28  IF  ANT. TTPE  (RT. CONFIG)  IS  LESS  THAN  ZERO 

27  PRINT  1  LINE  LIKE  THIS 

28  - THIS  SET  OPERATES  A  OIRECTIONAL  ANTENNA 

29  STOP 

30  OTHERWISE 

31  PRINT  1  LINE  WITH  ANT. TTPE  (RT. CONFIG)  LIKE  THIS 

32  ANTENNA  TTPE  -  mm— 

33  IF  REH. ANT  (RT. CONFIG)  IS  NOT  EQUAL  TO  ZERO 

34  PRINT  1  LINE  LIKE  THIS 

35  - - THIS  SET  OPERATES  A  AERATED  ANTENNA 

38  “GO  TO  NO.NET” 

37  STOP 

38  OTHERWISE 

39  PRINT  1  LINE  WITH  X. CURRENT  (TANK)  .  T. CURRENT  (TANK)  . 

40  ANO  Z. CURRENT  (TANK)  LIKE  THIS 

41  ANTENNA  LOCATlONi  X  -  mmmmm.m,  T  -  mmmnm.m.  Z  -  nmmmm.m 

42 

43  'NO.NET’  "CONTINUE” 

44  PRINT  1  LINE  WITH  NUH.NET  (OWN.NET (OWN. SUBSCRIBER (RT. CONFIG) ) ) 

45  LIKE  THIS 

46  - THIS  SET  13  TUNEO  TO  NET  NUMBER  — mm 

47  SKIP  1  LINE 

48  LOOP 

49 

50  'XI'  "CONTINUE” 
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APPENDIX  U 


routine  initialize 

DEFINE  I.  J.  K.  ANO  NPBI  AS  INTEGER  VARIABLES 

REAO  PAROO,  PAROI .  PAR02,  PAROS.  PAROU.  PAR05.  PAR06.  PAR07.  PAROB.  AND  PAR09 
RE AO  PAR  10  ANO  PARll 

REAO  PARSO.  PARSl ,  PARS2,  PARS3.  PAR5U,  PARSS.  PARS6,  PARS7,  PARS8,  ANO  PAR59 

REAO  PAR60.  PARSl,  PAR62.  PAR63.  PAR64.  PARBS,  PAR66.  PAR67,  PAR68.  ANO  PAR69 

REAO  PAR70.  PAR71,  ANO  PAR72 

START  NEW  PAGE 
IF  CON. PRINT  GT  10 
CALL  STAT.OUNP 
CALL  SSTAT.OUMP 
BLURTS 

REAO  CO.L0.BQ  ANO  CO. UP. 80 
REAO  BN.LO.BO  ANO  BN. UP. BO 
REAO  BOE.LO.BO  ANO  80E.UP.B0 

REAO  OIV.LO.BO  ANO  OIV.UP.BO 

RETURN 


APPENDIX  V 


ROUTINE  ST AT. DUMP 

LIST  ATTRIBUTES  OF  ERCH  COHPANT . COMMANDER 

LIST  ATTRIBUTES  OF  EACH  BN.COHMANDER 

LIST  ATTRIBUTES  OF  EACH  BOE.COHHANQER 

LIST  ATTRIBUTES  OF  EACH  01 V.COHHANOER 

SKIP  2  LINES 

RETURN 

END 
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APPENDIX  W 


1 

2 

3 

9 

5 

6 

7 

8 

9 

10 
11 
12 
13 
11 
15 
18 

17 

18 

19 

20 
21 
22 
23 
28 
25 
28 

27 

28 

29 

30 

31 

32 

33 
38 

35 

36 

37 

38 

39 

90 

91 

92 
83 
89 
95 
86 
87 

98 

99 
50 


ROUTINE  S37AT  .DUMP 

DEFINE  1  RNO  J  RS  INTEGER  VARIABLES 

FOR  1  •  1  TO  880E.  00 

IF  LINE.V  GT  70  STRRT  NEW  PAGE 
ALHAT3 

PRINT  1  LINE  WITH  I  AS  FOLLOHS 
BRIGADE  mm 

PRINT  3  LINES  RS  FOLLOHS 

80ENSN  BOECUR  BOEHT  BDELO  BDEGO 


PHZLINES 

FOR  J-l  TO  PHZLINES.  DO 

PRINT  1  LINE  HITH  J,  BDECORO  (I .  J.  1)  .  BOECORD  (I .  J. 2)  . 

BOECORD  (I.J.3) ,  BDECORO  (I,  J.  8)  .  AND  BDECORO  (I  .J.  5)  THUS 

MM  .  MMMMM  MMMMM  MMMMM  MMMMM  MMMMM 

LOOP 

SKIP  2  LINES 
LOOP 

FOR  1-1  TO  BBN,  DO 

IF  LINE.V  GT  70  STRRT  NEW  PAGE 
BLURTS 

PRINT  1  LINE  HITH  I  AS  FOLLOHS 
BATTALION  mm 

PRINT  3  LINES  AS  FOLLOHS 

BMSN  BNCUR  BNHT  3NL0  BNGO 


PHZLINES 

FOR  J-l  TO  PHZLINES.  00 

PRINT  I  LINE  HITH  J.  BNCORO  II . J. 1 1 .  BNCORO (I . J.21 . 

BNCORO  (I.J.3J .  BNCORO  II.  J. 8) .  ANO  BNCORD  (I ,  J.5)  THUS 

MM  ,  MMMMM  MMMMM  MMMMM  MMMMM  MMMMM 

LOOP 

SKIP  2  LINES 
LOOP 

FOR  1-1  TO  BLCOHP.  00 

IF  LINE.V  GT  70  START  NEH  PAGE 
ALHATS 

PRINT  1  LINE  HITH  I  AS  FOLLOHS 
COMPANT  mm 

PRINT  3  LINES  AS  FOLLOHS 

CHSN  COHT 


PHZLINES 

FOR  J-l  TO  PHZLINES.  DO 

PRINT  1  LINE  HITH  J,  COCORO  (I .  J.  1)  .  ANO  COCORD  (I .  J.  2)  THUS 

MM  .  MMMMM  MMMMM 

LOOP 
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51  SKIP  2  LINES 

52  LOOP 

53  MTUBN 

SU  END 


APPENDIX  X 


1  UPON  CONHO. ATTEMPT  (ORIG.HSG) 

2 

9  IF  COM. PRINT  6T  20 

4  PRINT  1  LINE  WITH  T1HE.V  THUS 

5  ENTERED  COMMA. ATTEMPT  EVENT  AT  TIME. V-hmmkx.xk* 

8  ALNAT3 

7  LET  CALLNET  ■  0 

8  LET  CALLSUB  >  0 

9  LET  CALLRT  -  0 

10  LET  AORSEE  -  A00RE3SEE (HSG1 

11  LET  OR. TANK  -  TK.IO(ORIG) 

12  LET  OE.TANK  -  TK. 10 (AORSEE) 

19 

14  * 'CHECK  THAT  BOTH  TANKS  HAVE  RADIOS" 

15  IF  FHTANK.L1ST (0R1G)  IS  EQUAL  TO  ZERO, 

16  GO  TO  ERR1 

17  OTHERMISE 

18  IF  FHTANK. LIST (AORSEE)  IS  EQUAL  TO  ZERO, 

19  GO  TO  ERR1 

20  OTHERUISE 

21 

22  "CHECK  THAT  DESTINATION  AND  ORIGINATOR  ARE  ON  SAME  NET" 

23  LET  HTSET  -  FHTANK. LIST  10R1G) 

24  FOR  EVERT  RT. CONFIG  IN  RAO. LIST  (HTSET) .  DO 

25  LET  FMNET  -  OHN.NET  (OWN. SUBSCRIBER  (RT. CONFIG) ) 

26  FOR  EVERT  SUBSCRIBER  IN  CE01 .LIST  (FMNET) ,  DO 

27  IF  OHN. TANK  (SUBSCRIBER)  -  AORSEE. 

28  LET  CALLRT  .  RT. CONFIG 

29  LET  CALLSUB  *  SUBSCRIBER 

90  LET  CALLNET  -  FMNET 

91  IF  FM. IDLE  (FMNET)  IS  EQUAL  TO  IDLE. 

32  GO  TO  TRT.CALL 

33  OTHERWISE 

34  REGARDLESS 

35  LOOP 

36  LOOP 

97  IF  CALLRT  IS  NOT  EQUAL  TO  ZERO, 

38  GO  TO  NET. BUST 

39  OTHERWISE 

40  GO  TO  ERR2 

41 

42  "TRT  TO  CALL  the  DISTANT  STATION" 

43  'TRT.CALL' 

44  IF  COM. PRINT  GT  25 

45  PRINT  1  LINE  WITH  MSG.  CALLNET.  ORIG,  ANO  AORSEE  AS  FOLLOWS 

48  - MSG-xxxxxxxh  FMNET ■mxkmxkmm  ORIGINATOR>xxmxx»mm  ADDRESSEE 

47  ALHATS 

48  LET  FK. IDLE (CALLNET)  -  BUST 

49  LET  IN. USE  (CALLRT)  -  BUST 

50  LET  NET. NO  -  NUM.NET  (CALLNET) 
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51  LET  HTSET  -  FHTANK.LIST  (AORSEE) 

52  FOR  EVERT  RT. CONFIG  IN  RflO.llST  (HTSET) ,  09 

53  IF  ONN.NET  (OWN. SUBSCRIBER IRT. CONFIG))  •  CALLNET, 

51  GO  TO  KET.H1KE 

55  0THERN1SE 

56  LOOP 

57  GO  TO  NO.flNS 

58 

59 

60  * ‘CHECK  IF  COHHO  IS  TECHNICRLLT  FEASIBLE*  * 

61  ‘KEY. HIKE’ 

62  LET  RECRT  •  AT. CONFIG 

63  IF  COH. PRINT  GT  25 

64  PRINT  1  LINE  WITH  CALLRT  ANO  RECRT  AS  FOLLOWS 

65  - TRANSHITTER/CALLRT^hxxxkkk*  RECEIVER/RECRT»kn**mi.««m 

66  ALWAYS 

67  CALL  TECH. COHHO  (CALLRT. RECRT1  YIELDING  ABILITY 

68 

69  IF  ABILITY  -  ROGER. 

70  LET  IN. USE  (RECRT)  -  BUSY 

71  LET  OELT  -  LENGTH. HSG (HSG) 

72  CALL  EH. ROUTINE  (CALLRT. RECRT)  YIELDING  ABILITY 

73  IF  ABILITY  -  JAHHEO 

74  IF  COH. PRINT  GT  20 

75  PRINT  1  DOUBLE  LINE  HITH  MSG. NO  (HSG),  HSG. TYPE  (MSG)  .  NUM.NET  (FMNET) 


76  TK.IO(ORIG).  AND  TK.  ID  (ADDRESSEE  (HSG) )  AS  FOLLOWS 

77  HSG. NO  ««•«•«*«  OF  TYPE  ««•«  ON  NET  ««•«  FROM  TANK  TO  TANK  *>•«« 


78  ***  JAMMED  ♦♦♦ 

79  SKIP- 1  LINE 

80  ALWAYS 

81  SCHEDULE  A  CHANGE. FREQ (CALLRT, CALL NET. MSG)  IN  COH 1 5 . D I STR  (PAR69 , PAR70 , 2) 

82  UNITS 

83  RETURN 

84  OTHERWISE 

85  IF  COH. PRINT  GT  20 

86  PRINT  1  00U8LE  LINE  WITH  HSG. NO  (HSG),  MSG. TYPE  (MSG) .  NUM.NET  (FMNET) 


87  TK.IO(ORIG).  AND  TK.  ID  (ADDRESSEE  (MSG) )  AS  FOLLOWS 

88  HSG. NO  mmmmxm  OF  TYPE  mmk  ON  NET  «mm  FROM  TANK  kmm  TO  TANK  mhm 

89  NORMAL  TRANSMISSION  ♦♦♦ 

90  ALWAYS 


91  SCHEDULE  AN  END. XSMN (CALLRT, RECRT, CALLNET, MSG)  IN  OELT  UNITS 

92  RETURN 

93  OTHERWISE 

94 

95  IF  ABILITY  >  NEGATIVE 

96  “DISTANT  STATION  DOES  NOT  RESPOND  TO  CALL” 

97  ‘NO.ANS* 

98  IF  COM. PRINT  GT  20 

99  PRINT  1  00U8LE  LINE  HITH  MSG. NO  (MSG).  MSG. TYPE  (HSG) ,  NUM.NET  (FMNET) 

100  TK.  ID  (ORIG)  ,  ANO  TK.  ID  (ADDRESSEE  (MSG) )  AS  FOLLOWS 
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101  NSC.NO  mmmmmm  of  TYPE  MMN  on  NET  mmm  from  tank  «««  TO  TANK  «mm 

102  ♦♦♦  NO  RESPONSE  TO  CALL 

103  SKIP  1  LINE 

104  ALWAYS 

105  LET  TFC.NAITING  (CALLSUB)  ■  WAITING 

106  SCHEDULE  A  NO. CONTACT  (CALLRT.CALLNET.HSG)  IN  C0H14.DISTR  (PAR67.PAR88.2)  UNITS 

107  RETURN 

108  OTHERWISE 

109 

110  IF  ABILITY  -  HARG1NAL 

111  LET  IN. USE (RECRT)  •  BUST 

112  LET  OELT  ■  2»LENGTH.HSG  (HSG) 

119  CALL  EW. ROUT  1 NE(CALLRT, RECRT)  YIELDING  ABILITY 

114  IF  ASILlTr  -  JAMMED 

1  IS  IF  CON. PRINT  GT  20 

116  PRINT  1  DOUBLE  LINE  WITH  HSG. NO  (HSG).  HSG. TYPE  (MSG)  .  NUH.NET  (FMNET)  , 

117  TK.IO(ORIG).  AND  TK.  ID  (ADDRESSEE  (HSG))  AS  FOLLOWS 

116  HSG. NO  mmmmhm  OF  TYPE  mmh  ON  NET  mmh  FROM  TANK  mmm  TO  TANK  ««* 

119  ♦♦♦  JAMMED 

120  SKIP  1  LINE 

121  ALWAYS 

122  SCHEDULE  A  CHANGE. FREQ  (CALLRT.CALLNET. HSG)  IN  C0M15.0ISTR (PAR69.PAR70.2) 

123  UNITS 

124  RETURN 

125  OTHERWISE 

126  IF  COH. PRINT  GT  20 

127  PRINT  1  DOUBLE  LINE  WITH  HSG.NO(MSG),  HSG. TYPE  (MSG)  ,  NUM. NET  (FMNET)  , 

128  TK.IO  (QR1G)  .  ANQ  TK.  IQ  (ADDRESSEE  (MSG)  1  AS  FOLLOWS 

129  MSG. NO  mmmmnm  OF  TYPE  mmh  ON  NET  nmm  FROM  TANK  mmh  TO  TANK  ««« 

130  ♦♦♦  MARGINAL  TRANSMISSION  ♦♦♦ 

131  ALWAYS 

132  SCHEDULE  AN  END.XSMN(CALLRT. RECRT, CALLNET. HSG)  IN  CELT  UNITS 

133  RETURN 

134  '  OTHERWISE 

135  00  TO  ERR3 

136 

137  ’NET. BUST’ 

138  ’’FILE  MESSAGE  AND  CONTINUE  WHEN  NET  IS  BUST” 

139  IF  COH. PRINT  GT  20 

140  PRINT  1  DOUBLE  LINE  WITH  MSG. NO  (MSG).  MSG.  TYPE  (MSG)  .  NUM.NET  (FMNET)  . 

141  TK.IO(ORIG).  AND  TK.  10  (ADDRESSEE  (HSG) )  AS  FOLLOWS 

142  HSG. NO  mmmmmm  OF  TTPE  mmh  ON  NET  mmh  FROM  TANK  nmm  TO  TANK  ««» 

143  ♦♦♦  NET  8UST,  HSG  FILED  IN  MAILBAG  ♦♦♦ 

144  SKIP  1  LINE 

145  ALWAYS 

146  FILE  THIS  HSG  IN  MAILBAG  (HYSET) 

147  LET  TFC. WAITING  (CALLSU8)  -  WAITING 

146  RETURN 

149 

150  ’’ERROR  ROUTINES  ” 
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151 

152  ’Efim* 

153  PRINT  2  LINES  WITH  TlHE.V,  OR. TANK  AND  OE.TANK  LIKE  THIS 

154  RT  . .  TANK  mmm*  TRIED  TO  SEND  A  MESSAGE  TO  TANK  «m»m 

155  ONE  OF  THESE  OflES  NOT  HAVE  A  RADIO 

156  STOP 

157 

158  *ERR2* 

159  PRINT  2  LINES  MITH  TlHE.V.  OR. TANK,  AND  OE. TANK  LIKE  THIS 

160  AT  MMHHM.RM.  TANK  »M«H  TR1E0  TO  SEND  A  MESSAGE  TO  TANK  «««« 

161  THESE  TANKS  ARE  NOT  ON  A  COMMON  NET 

162  STOP 

163 

164  'ERR3  * 

165  PRINT  2  LINES  HITH  TlHE.V.  OR. TANK.  AND  DE.TANK  LIKE  THIS 

166  AT  mmmmh.mm.  TANK  »M«M  TRIED  TO  CONTACT  TANK  mmmn  ON  THE  FM 

167  AN  ERRONEOUS  AB1L1TT  VALUE  MAS  RETURNED  BT  TECH.COMMO 

168  STOP 

169  END 

170 

171 
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APPENDIX  Y 


1  ROUTINE  TECH. COHNS  (CALLRT, RECRTl  YIELDING  ABILITY 

2 

S  IF  COM. PRINT  GT  25 

«  PRINT  1  OOUBLE  LINE  WITH  TK. ID  (OWN. TANK  (SUN. SUBSCRIBER  (CRLLRT) )) .  CALLRT. 

5  TK. ID  (OWN. TANK (OWN. SUBSCRIBER (RECRT) )) ,  AND  RECRT  AS  FOLLOWS 

6  - HSG  FROH  TANK  »«n  TRANSMITTER-*-**—*  TO  TANK  »»  RECEIVER-******* 

7  TECH. COMHO  ♦♦♦ 

a  ALWAYS 

9  LET  ABILITY  -  C0M13.0ISTR (PAROW.  PAR03. 2) 

10  RETURN  - 

11  ENO 

12 
13 

IN  ROUTINE  EW. ROUTINE  (CALLRT, RECRTl  TIELDING  ABILITY 

15 

16  IF  COM. PRINT  GT  20 

17  PRINT  1  LINE  WITH  TIHE.V  AS  FOLLOWS 

IB  ♦♦♦♦♦  ENTERED  EW  ROUTINE  AT  TIME  -  «**«*.*■***  ♦♦♦♦♦ 

19  SKIP  1  LINE 

20  ALWAYS 

21  LET  ABILITY  -  C0M13.DISTR (PARON, PAROS. 2J 

22  RETURN 

23  ENO 
2N 

25 


121 


APPENDIX  Z 


1  UPON  CHANGE .FREQ  (CALL AT , CflU.NET , MSG) 

2 

3  LET  FN. IDLE  (CALLNET)  -  IDLE 

I  LET  IN. USE  (CALLRT)  -  IDLE 

5  LET  OR1G  •  OWN. TANK  (OWN. SUBSCRIBER  ICALLRT)) 

6  IF  CON. PRINT  GT  20 

7  PRINT  1  DOUBLE  LINE  WITH  TIHE.V.  TK. ID  CORIG)  AND 

8  NUM.NET  (CALLNET)  LIKE  THIS 

9  TIHE.V  MMMHM.MM  TANK  MNtt,  ON  NET  MMM 

JO  ♦♦♦  FREOUENCT  CHANGE  ♦♦♦ 

II  SKIP  1  LINE 

12  ALWAYS 

13 

14  SCHEDULE  A  COHMO. ATTEMPT  (ORIG.HSG)  NON 

15 

16  RETURN 

17  END 

18 
19 
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APPENDIX  AA 


1 

2 

3  ROUTINE  EH. ROUTINE (CALLRT,  RECRT)  TIELOING  A8ILITT 

<t  DEFINE  ABILITY .  CALLRT.  AND  RE  CRT  R3  INTEGER  VARIABLES 

S 

8  IF  COM. PRINT  GT  20 

7  PRINT  1  LINE  HITH  TIME.V  AS  FOLLOHS 

B  *****  ENTERED  EH  ROUTINE  AT  TIME  •  »»***. ***** 

9  SKIP  1  LINE 

10  AtHATS 

11  LET  ABILITY  -  C0H13.0ISTR  (PAR0H.PAR0S.2) 

12  RETURN 

13  ENO 
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APPENDIX  BB 


1  UPON  NO. CONTACT  (CflLLRT.CflLl.NET. HSC) 

2 

3  IF  CON. PRINT  GT  25 

V  PRINT  1  LINE  H1TH  T1NE.V  THUS 

5  NO  CONTACT  EVENT  ENTERED  AT  TIME. V-hmnkm.mhh 

6  SKIP  1  LINE 

7  ALNATS 

8  LET  FM. IDLE  (CALLNET)  -  IDLE 

9  LET  IN.USE(CALLRT)  -  IDLE 

10 

11  CALL  S1EZE.NET  (CALLNETI 

12  LET  HYSET  «  FHTANK. LIST  10HN. TANK  (DUN. SUBSCRIBER (CALLRT))  I 

13  FILE  THIS  NSG  IN  HAILBAG  (HYSET1 
IN 

15  RETURN 

16  ENO 

17 

18 


APPENDIX  CC 


1  ROUTINE  S1EZE.NET (CALLNET) 

2  DEFINE  1.  IK.  AND  SU8REC  AS  INTEGER  VARIABLES 

3 

4  IF  CON. PRI NT  GT  20 

5  PRINT  1  LINE  HITH  T1NE.V  AS  FOLLOWS 

6  ENTERED  S1EZE.NET  ROUTINE  AT  TINE. V-mh»«».hhh 

7  ALWAYS 

8  RESERVE  TARRAT  («1  AS  2-N.CEOI .LIST  (CALLNET) 

9  LET  1-1 

10  FOR  EVERT  SUBSCRIBER  IN  CE01 .LIST  (CALLNET) ,  DO 

11  LET  NTSET  -  FMTANK.L1ST (OWN. TANK (SUBSCRIBER!) 

12  IF  N.  MAILBAG  (NTSET)  -  0.  GO  TO  LOOP 

13  OTHERWISE 

14  FOR  EVERT  MESSAGE  IN  MAILBAG (NTSET) ,  00 

15  LET  ADRSEE  -  ADDRESSEE  (MESSAGE) 

16  FOR  EVERT  SUBREC  IN  CEO! .LIST  (CALLNET) .  DO 

17  IF  OWN. TANK  (SUBREC)  -  ADRSEE.  GO  TO  HATCH 

18  OTHERWISE 

19  LOOP 

20  LOOP 

21  GO  TO  LOOP 

22 

23  ‘HATCH' 

24 

25  LET  TARRAT  (I)  -  OWN.  TANK  (SUBSCRIBER) 

28  LET  TARRAT (I-l)  -  MESSAGE 

27  LET  I  -  1*2 

28 

29  'LOOP' 

30 

31  LOOP 

32 

33  IF  I  -  1 

34  IF  COM. PRI NT  GT  20 

35  PRINT  1  DOUBLE  LINE  WITH  TIHE.V  AND  NUH.NET (CALLNET)  AS  FOLLOWS 

36  TIHE.V  NMNMN.HNM  NET  «*« 

37  EMPTY  MAILBAG  ♦♦♦ 

38  SKIP  1  LINE 

39  ALWAYS 

40  RELEASE  TARRAT  (-) 

41  RETURN 

42  OTHERWISE 

43  LET  RNI  -  REAL. F  ( (I-ll /2J  -  0.0001 

44  LET  IK  -  TRUNC.F  (COM  1 2. 01  ST  A  (PAR6S,  RNI ,  8)  -  1) 

45  LET  0R1G  -  TARRAT  ( (2- IK)  -  1) 

46  LET  HSG  -  TARRAT  (2* IK) 

47  LET  NTSET  -  FMTANK.LIST (ORIG) 

48  IF  COM. PRINT  GT  20 

49  PRINT  1  OOUBLE  LINE  WITH  MSG.NO(MSG),  MSG.  TYPE  (MSG)  .  NUM.  NET  (CALLNET)  . 

50  TK.  10  (ORIG).  ANO  TK.  ID  (ADDRESSEE  (MSG) )  AS  FOLLOWS 
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si  HSG.NO  nhmmnm  OF  TTPE  KMX  ON  NET  «««  FROM  TANK 

52  SIE2E  NET 

53  SKIP  1  LINE 

54  ALHATS 

55  REMOVE  THIS  MSG  FROM  HA1L8RG (MTSETI 

58  SCHEDULE  A  COMMO. ATTEMPT (0R1G. MSG)  NON 

57  RELEASE  TARRAT  («) 

58  RETURN 

59  ENO 
80 

81 
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APPENDIX  DD 


1  UPON  ENO.XSMNICALLRT.RECRT.  CALL  NET.  MSG) 

2 

S  LET  0R!6  •  OWN. TANK  (OWN. SUBSCRIBER  (CALLRT) ) 

I  LET  AORSEE  -  AOORESSEE  (MSG) 

5  LET  TTRE  •  MSG. TYPE  (MSG) 

8  LET  TEXT. POINTER  •  MSG. TEXT (MSG) 

7  LET  HSGNO  -  HSG.NO (MSG) 

a  LET  DEST  -  DEST .  CODE  (MSG) 

9  IP  CON. PRINT  GT  IS 

10  PRINT  1  LINE  WITH  TlHE.V  AS  FOLLOWS 

II  EN0.X3NN  EVENT  ENTEREO  AT  TIME. ¥»«***«.*** 

12  PRINT  1  OOUOLE  LINE  WITH  MSG.  NO  (MSG).  HSG.  TTPE  (MSG)  .  NUM.NET  (CALLNETJ . 

13  TK.IO(ORIG).  ANO  TK.  10  (ADDRESSEE  (MSG))  AS  FOLLOWS 

IN  HSG.NO  ******  OF  TTPE  «**  ON  NET  «**  FROM  TANK  ***  TO  TANK  *** 

15  END.XSHN  COMPLETED  ♦♦♦ 

16  ALWATS 

17  IF  COM. PRINT  GT  25 

18  PRINT  1  LINE  WITH  OEST. CODE  (MSG) .  LENGTH. MSG  (MSG) .  ANO  LST. SEND. TIME (HSG) 

19  THUS 

20  - DEST. CODE  **«  HSG. LENGTH  «««.««  KILL. TINE 

21  PRINT  1  LINE  WITH  MSG.  CALLNET.  ORIG.  AND  ADRSEE  AS  FOLLOWS 

22  - H3G-********  FMNET •»*****»*  ORIGINATOR*********  ADDRESSEE-.-****"* 

23  PRINT  1  LINE  WITH  CALLRT  ANO  RECRT  AS  FOLLOWS 

29  - TRANSMITTER/CALLRT*********  RECEIVER/RECRT-******** 

25  PRINT  1  LINE  WITH  TEXT. POINTER  AS  FOLLOWS 

2S  ——TEXT  POINTER********* 

27  ALWATS 

28  SKIP  1  LINE 

29  QESTROT  THE  MESSAGE  CALLED  HSG 

30 

31  IF  OEST  LT  10  GO  TO  FINISHED 

S2  ELSE 

33  IF  CO.IS.OEST.OF.MSG  CALL  CO. MSG  GO  TO  COMPLETED 

39  ELSE 

35  IF  BN.IS.OEST.OF.MSG  CALL  8N.MSG  GO  TO  COMPLETED 

96  ELSE 

97  IF  BOE. IS. OEST. OF. MSG  CALL  80E.MSG  DO  TO  COMPLETED 

38  ELSE 

39  IF  DIV. IS. DEST. OF. MSG  CALL  OIV.MSG  GO  TO  COMPLETED 

90  ELSE 

91  PRINT  1  LINE  AS  FOLLOWS 

92  AN  ERROR  HAS  OCCURRED  IN  THE  TTPE  CODE. 

93  RETURN 
99 

95  'COMPLETED* 

96  LET  TEXT (*)  •  TEXT. POINTER 

97  RELEASE  TEXT  (*) 

98 

99  'F1NISHE0* 

50  LET  FH. IDLE  (CALLNET)  -  IOLE 
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i 


51 

LET  IN. USE  (CALLBT) 

-  10LE 

52 

LET  IN. USE  (RECBT) 

-  IDLE 

S3 

5*1 

SKIP  1  LINE 

55 

56 

CALL  SIEZE.NET  (CALLNET) 

57 

BE TUAN 

58 

59 

60 

END 

APPENDIX  EE 


1  ROUTINE  CO. MSG 

2 

S  IF  COM. PRINT  GT  20 

4  PRINT  1  LINE  M1TH  TIHE.V  AS  FOLLOWS 

5  EXECUTION  OF  CO. MSG  ROUTINE  RT  TIME.  V-mmi 

6  RLHRTS 

7  IF  TTPE  LT  20  CALL  DEC. CO  GO  TO  EXIT1 

0  ELSE 

9  'EXIT! ' 

10  RETURN 

11  ENO 

12 

13 

14  ROUTINE  8N.MSG 

15 

16  IF  COM. PRINT  GT  20 

17  PRINT  1  LINE  WITH  TIME.V  RS  FOLLOWS 

18  EXECUTION  OF  BN. MSG  ROUTINE  RT  TIME.V-"" 

19  RLHRTS 

20  IF  TTPE  LT  30  CALL  DEC. BN  GO  TO  EXIT1 

21  ELSE 

22  'EX1T1 ' 

23  RETURN 

24  ENO 

25 
28 

27  ROUTINE  BDE.MSG 

28 

29  IF  COM. PRINT  GT  20 

30  PRINT  1  LINE  WITH  TIME.V  RS  FOLLOWS 

31  EXECUTION  OF  BOE.MSG  ROUTINE  RT  TIME.V-" 

32  RLHRTS 

33  IF  TTPE  LT  40  CALL  0EC.80E  GO  TO  EXIT1 

34  ELSE 

35  'EX1T1 * 

36  RETURN 

37  ENO  ' 

38 

39 

40  ROUTINE  OIV.MSG 

41 

42  IF  COM. PRINT  GT  20 

43  PRINT  I  LINE  WITH  TIME.V  THUS 

44  ENTERED  OIV.MSG  ROUTINE  AT  TIME.V  -  ""«« 

45  RLHRTS 

46  CRLL  OEC.OIV 

47  RETURN 

48  ENO 

49 

50 
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APPENDIX  FF 


1  UPON  OUHP. HAILBAG 

2 

3  IF  COH. PAINT  GT  25 

4  PAINT  1  LINE  WITH  T1HE.V  THUS 

5  OUNP  HAILS AG  EVENT  ENTEAEO  AT  TIHE.V  •  . . 

6  SKIP  1  LINE 

7  ALNATS 

8  FOA  EVEAT  TANK  IN  BLUE. ALIVE,  00 

9  IF  FHTANK.LI3T (TANK)  IS  EQUAL  TO  2EA0. 

10  GO  TO  LOOP  — 

11  OTHEANISE 

12  LET  HTSET  -  FHTANK.LIST  (TANK) 

13  IF  N.HAIL8AG  (HTSET)  EQ  0  GO  TO  LOOP 

14  ELSE 

15  FOA  EVEAT  HESSAGE  IN  HAILBAG (HTSET) ,  00 

18  IF  LST.SENO.TIHE (HESSAGE)  IS  LESS  THAN  TIHE.V. 

17  AEHOVE  THE  HESSAGE  FAOH  HAILBAG  (HTSET) 

18  CALL  ABOAT.HSG (TANK, HESSAGE) 

19  AEGAHOLESS 

20  LOOP 

21 

22  'LOOP* 

23  LOOP 

24 

25  SKIP  1  LINE 

28  SCHEDULE  A  OUHP. HAILBAG  IN  600.0  UNITS 

27 

28  AETUAN 

29  END 

30 

31 
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APPENDIX  GG 


I  ROUTINE  ABORT. MSG (TNK, MSG) 

9  IF  CON. PRINT  GT  20 

<  PRINT  1  DOUBLE  LINE  WITH  TIME.V.  TK.ID(TNK).  HSG.NO(HSG). 

S  MSG.  TYPE  (MSG)  ,  AND  TK.  20 (  ADDRESSEE  (MSGM  LIKE  THIS 

B  T1HE.V  xxxxx.xx  TANK  MMX.  MSG. NO  kmkkkk.  TYPE  XX.  TO  TANK  XXX 

7  ♦♦♦  ABORTEO  DUE  TO  KILL  TINE  ♦♦♦ 

B  SKIP  I  LINE 

9  _  ALHATS 

10 

II  DESTROT  THE  MESSAGE  CALLED  HSG 

12  RETURN 

IS  ENO 

m 

IS 
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APPENDIX  HH 


1  UPON  MSG. GEN  (FMNET) 

2  DEFINE  AORSEEK.  QRT.TEMP.  I.  NUHBNET.  ORT.TEMP,  ORTK.  AND  RNL  AS  INTEGER 

S  VARIABLES 

V 

5  IF  N.CEOI. LIST (FMNET)  LT  2 

6  PRINT  1  LINE  HITH  FMNET  AS  FOLLOWS 

7  THERE  IS  ONLT  ONE  SUBSCRIBER  ON  FMNET  ««««•«. hhmmm 

0  GO  TO  LOOP! 

9  ELSE 

10  LET  RNL  -  N.CEOI. LIST (FMNET) 

11  LET  ORTK  -  C0M08 . 0 1 STR  (PARQ2 . RNL • 2) 

12  ’OESTGEN * 

13  LET  AORSEEK  -  COM08.0ISTR (PAR02. RNL, 2) 

111  IF  AORSEEK  IS  EQUAL  TO  ORTK.  GO  TO  OESTGEN 

IS  OTHERWISE 

18 

17  CREATE  A  MESSAGE  CALLED  MSG 

IB  LET  I  -  NUN.NET  (FMNET) 

19  LET  ADDRESSEE  (MSG)  -  RRRPOI NT  (NETT3L  (1  .AORSEEK) ) 

20  LET  LST. SEND. TIME  (MSG)  -  TlME.V  *  250.0 

21  LET  LENGTH. MSG (MSG)  -  C0M09.DISTR (PARS2.PAR63.2) 

22  LET  ORIG  -  RRRPOINT (NETT8L  (I. ORTK) ) 

23  LET  HSG.TTPE(HSG)  -  0 

24  LET  MSG.  TEXT  (MSG) -0 

25  LET  DEST. CODE (MSG) -0 

28  LET  MTSET  «  FMTANK. LIST (ORIG) 

27  LET  MSG. NO (MSG)  «  NXT. MSG. MO (MTSET) 

28  ADD  1  TO  NXT.HSG.NO (MTSET) 

29  FOR  EVERT  RT. CONFIG  IN  RAO. LIST  (MTSET) .  00 

30  IF  OWN.NET (OWN. SUBSCRIBER (RT. CONFIG) )  EO  FMNET  LET  ORT.TEMP-RT. CONFIG 

31  ALWATS 

32  LOOP 

33  FOR  EVERT  RT. CONFIG  IN  RAO. LIST (FMTANK. LIST  (ADDRESSEE  (MSG) )) ,  DO 

31  IF  OWN.NET (OWN. SUBSCRIBER (RT. CONFIG))  EQ  FMNET  LET  DRT.TEHP-RT. CONFIG 

35  ALWATS 

38  LOOP 

37 

38  IF  COM. PRINT  GT  IS 

39  PRINT  1  LINE  HITH  TlME.V  THUS 

HO  ENTERED  MESSAGE  GENERATOR  AT  TlME.V  - 

41  PRINT  1  DOUBLE  LINE  WITH  MSG. NO  (MSG).  MSG.TTPE  (MSG)  ,  NUM.  NET  (FMNET)  . 

42  TK.  ID  (ORIG).  AND  TK.  ID  (ADDRESSEE  (MSG) )  AS  FOLLOWS 

43  MSG. NO  mmnmmm  OF  TTPE  nmm  ON  NET  «hm  FROM  TANK  dm  TO  TANK  mmm 

44  GENERATED  ♦♦♦ 

45  ALWATS 

48  IF  COM. PRINT  GT  25 

47  PRINT  1  LINE  HITH  OEST. CODE  (MSG) .  LENGTH. MSG  (MSG) .  AND  LST. SEND.  TIME  (MSG) 

48  THUS 

49  ——DEST. CODE  *»«  MSG. LENGTH  "a*."*  KILL. TIME  nmm. an 

50  PRINT  1  LINE  HITH  MSG.  FMNET.  ORIG.  RND  ADDRESSEE  (MSG)  AS  FOLLOWS 
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SI  - HSG-mmhmmhmh  FHNET-mxhbmmkh  ORIGINATOR-™****"*-*  adoressee 

PRINT  1  LINE  WITH  ORT.TEMP  flNQ  ORT.TEMP  RS  FOLLOWS 

- TRANSHITTER/CALLRT*********  RECEI VER/RECRT********* 

RLWRTS 
SKIP  1  LINE 

SCHEDULE  fl  COHHO. ATTEMPT (OR I G.MSG)  NOW 
•LOOP1 1 

LET  NUH8NET-(C0H10.01STR  (PAROS. N. ETHER.  8)  -  1) 

LET  FHNET-F. ETHER 
FOR  I  -  1  TO  NUHBNET ,  DO 

LET  FHNET  -  S. ETHER  (FHNETI 

LOOP 

SCHEDULE  A  HSG. GEN  (FHNET)  IN  COHOl .DISTR  (PARS0.PAR51. 1)  UNITS 
RETURN 
END 

66 

67 
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